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

[annna]

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

[P@sh@]

Код

var s: string;
   i,n,imax,nmax: integer;
begin
 writeln('Введите строку:');
 readln(s);
 i:=1; nmax:=0;
 repeat
   while s[i]=' ' do i:=i+1;
   n:=i;
   while (s[i]<>' ') and (s[i]<>'.') do i:=i+1;
   if i-n>nmax then begin
     nmax:=i-n; imax:=n;
   end;
 until s[i]='.';
 if nmax=0 then writeln('Просто нет слов')
 else writeln('Самое длинное - ',copy(s,imax,nmax));
end.

написал только что... не проверял