Определить, какой процент слов в тексте содержит удвоенную согласную - Pascal ABC

Формулировка задачи:

Задача.Определить,какой процент слов в тексте содержит удвоенную согласную(слова разделены пробелами.Не могу вывести процентное содержание слов,выводится только просто количество слов с двойными согласными.Код приведен ниже.Что нужно добавить,чтобы выводилось процентное содержание?
uses crt;
Type setchar=set of char;
Const Sog: setchar = ['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
 Var
 str:string;
 i,l: integer;
 Begin
clrscr;
Readln(str);
for i:=2 to Length(str) do
  if (str[i]=str[i-1]) AND (str[i] in Sog) then l:=l+1;
  Writeln(l);
End.

Код к задаче: «Определить, какой процент слов в тексте содержит удвоенную согласную - Pascal ABC»

textual
var
  Str, Str1, old: string;
  i, c, c1: integer;
  D1, D2: integer;
 
const
  s1: string = 'бвгджзкйлмнпрстфхцчшщъь';
 
begin
  readln(Str);
  Str1 := '';
  c := 0;
  D1 := 1;
  D2 := 0;
  old := '';
  c1 := 0;
  for i := 1 to length(Str) do
  begin//1
    if Str[i] = ' ' then
    begin//2
      c := c + 1;
    end
    else
    begin
      if c > 0 then
      begin;
        D1 := D1 + 1; //Счётчик слов
        c := 0;
      end;
      //Привод к нижнему регистру
      if (Str[i] > 'А') and (Str[i] < 'Я') then
        Str[i] := chr(ord(Str[i]) + 32);
     
      if Str[i] = old then
      begin
        c1 := c1 + 1; //Считаем одинаковые буквы.
       
      end
      else
      begin
                                 //если есть удвоение
        if c1 = 1 then
        begin
          if pos(old, s1) <> 0 then
          begin
            D2 := D2 + 1;
            break; // остальные удвоенные в слове не считаем
          end;
        end;
        c1 := 0;
      end;
     
      old := Str[i];
     
    end; //
   
  end;  //
  writeln('Всего слов: ', d1);
  writeln('Всего удвоенных слов: ', d2);  
  writeln('Процент слов в тексте содержит удвоенную согласную: ', d2 / d1 * 100:0:2);  
  readln;
end.

11   голосов, оценка 4.182 из 5


СОХРАНИТЬ ССЫЛКУ