Обработка символов и строк, задачка Опции

[annna]

Дано несколько слов, в каждом из которых от одной до семи строчных букв; между соседними словами - не менее одного пробела, за последним словом точка. Напечатать слово с максимальной длиной.

[APAL]

Где-то подобная задача уже была...

Пишу прямо здесь, без проверки:

Код

Function GetMaxLengthSt(St : String) : String;
Var
 Smax,Scur : String;
 i : Byte;
Begin
 Scur:=''; i:=1;
Repeat
 While St[i]=' ' do Inc(i);
 While (St[i]<>' ')  and (St[i]<>'.') do
 Begin
   Scur:=Scur+St[i];
   Inc(i);
 End;
 If Length(Scur)>Length(Smax) then Smax:=Scur;
Until St[i]='.';
 GetMaxLengthSt:=Smax;
End;