Подсчитать количество слов в тексте, которые содержат одинаковое количество букв - Pascal - Ответ 64657

program pr1;
 
var    s,l:string; {определяем строковые переменные}
   i,k,n,m:integer;{определяем целочисленные переменные}
 
begin
   Write('vvedi predlojenie s=');{просим ввести строчку}
   Readln(s);{записываем строчку в переменную s}
   m:=1;
     for i:=1 to length(s) do {цикл для определения числа пробелов}
       if s[i]=' ' then       {нужен чтоб узнать кол-во слов}
         m:=m+1;
   n:=1;   {задаём длинну слова для поиска}
   repeat  {ищем слово длинной n, цикл идёт до кол-ва слов (m) }
      k:=0;  {начальные значения переменных для поиска длинны слов}
      i:=1;  {}
      l:=''; {}
        while i<>length(s)+1 do {цикл для поиска длинны каждого слова в S}
           begin
              if s[i]<>'.'then
                  begin          {если i-тый элемент из строчки S <> точке}
                     if (s[i]<>' ') then {узнаём равен ли i-тый элемент из S пробелу}
                        l:=l+s[i]    {собираем по элементам слово}
                     else
                       begin   {если найден пробел, тогда у нас есть одно слово L из S}
                          if n=length(l) then {узнаём равна ли длинна слова длинне, которую мы ищем}
                            k:=k+1;   {если равна то добавляем к колличеству найденных слов ещё одно}
                          l:='';     {опустошаем L для записания в него другого слова из строки S}
                     end;
                  end
              else  {если i-тый элемент = точке}{то узнаём длинну слова без точки}
                  if n=length(l) then {узнаём равна ли длинна слова длинне, которую мы ищем}
                   k:=k+1; {если равна то добавляем к колличеству найденных слов ещё одно}
                i:=i+1; {следующий элемент в строчке S}
           end;
        if k<>0 then {если найдено хоть одно слово нужной длинны, выводим колличество найдённых}
         Writeln('n=',n,' k=',k);
      n:=n+1; {ищем слово большей длинны}
   until n>m;  {прошлись по всем словам в строке S}
   Readln; {задержка перед выходом}
end.