Строки Опции

[Flare]

В заданном наборе слов найти слово максимальной длины.
Помогите разобраться в программе. Какой бы длины не были остальные слова, она выдает, что самым длинным является последнее.

Код

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.

[volvo]

Flare, у меня нормально отработало:

Введите строку:
this string is a test.
Самое длинное - string