Поиск самого длинного слова в строке

uses crt;
const rz=['_',':',';',',',' ','.','?','!'];
var s,s1,smx:array[1..1000] of char;
    n,i,k,m,mx:integer;
    c:char;
begin
clrscr;
writeln('Введите строку, окончание ввода точка:');
n:=0;
repeat
c:=readkey;
write(c);
n:=n+1;
s[n]:=c;
if c='.' then writeln;
until c='.';
mx:=0;
i:=1;
while i<=n do
if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если буква, а перед ней разделитель, или она первая}
 begin
  k:=i;m:=0;
  while not(s[k] in rz)and(k<=n)do {пока не разделитель и не конец строки}
   begin
    m:=m+1;
    s1[m]:=s[k];{составляем слово}
    k:=k+1;{идем вперед}
   end;
  if m>mx then {если длина больше макс.}
   begin
    mx:=m;
    smx:=s1;
   end ;
 i:=i+m;{перепрыгиваем}
 end
else i:=i+1;
writeln('Самое длинное слово:');
for i:=1 to mx do
write(smx[i]);
readln
end.