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

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.

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.

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.

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