Строчные величины, pascal

[Ucheniza]

#pascal
Какая самая большая длина слова в предложении и сколько таких самых больших слов?

[newerow1989]

var str:string;
    i,i0,dl,maxdl,n:integer;
begin
   Write('Predloshenie: ');Readln(str);
   str:=str+' ';
   n:=1;
   maxdl:=0;
   i0:=1;
   For i:=1 to Length(str) do
      If str[i]=' ' then
      begin
         dl:=i-i0;
         If maxdl=dl then
            n:=n+1;
         If maxdl<dl then
         begin
            maxdl:=dl;
            n:=1;
         end;
         i0:=i+1;
      end;
   Writeln('Max. dlina = ',maxdl);
   Writeln('Itogo: ',n);
   Readln;
end.