Написать программу для подсчета количества слов максимальной длины в тексте. текст вводится с клавиатуры. признак окончания текста точка. написать на паскале с использованием циклов

Program textfind; uses strutils; var text,buffer : string; var tpos,lastpos,counter,biggest : integer; begin   tpos : = 0;   text : = '';   while(tpos = 0) do begin     readln(buffer);     text += buffer;     tpos : = pos('.',buffer)   end;   lastpos : = 1;   tpos : = posex(' ',text,lastpos);   if tpos = 0 then      tpos : = posex('.',text,lastpos);   biggest : = tpos-1;   lastpos : = tpos+1;   while(not (tpos = 0)) do begin     tpos : = posex(' ',text,lastpos);     if tpos = 0 then         tpos : = posex('.',text,lastpos);     if (tpos-lastpos) > biggest then         biggest : = tpos-lastpos;       lastpos : = tpos+1;   end;   lastpos : = 1;   counter : = 0;   tpos : = posex(' ',text,lastpos);   if tpos = 0 then     tpos : = posex('.',text,lastpos);   while(not (tpos = 0)) do begin     if (tpos-lastpos) = biggest then         counter += 1;     lastpos : = tpos + 1;     tpos : = posex(' ',text,lastpos);     if tpos = 0 then         tpos : = posex('.',text,lastpos);   end; writeln(counter); end.

ннннииииззззнннааааюююююююю