Нахождение самого длинного слова в текстовом файле

uses crt;
const rz=[' ','.',',','-','?','!'];{символы, разделители слов, можно добавить}
var f:text;
    s,s1:string;
    n,i,k,d,mx:byte;
begin
clrscr;
assign(f,'text.txt');
reset(f);{файл с текстом в папке с программой}
{определяем максимальную длину слова}
mx:=0;
while not eof(f) do
 begin
  readln(f,s);
  n:=length(s);
  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;
    d:=0;
    while (k<=n) and not(s[k] in rz) do {пока не разделитель и не конец строки}
     begin
      d:=d+1;
      k:=k+1;
     end;
    if d>mx then mx:=d;
    i:=i+d+1
   end
  else i:=i+1;{пропускаем разделители}
 end;
close(f);
{ищем все слова максимальной длины}
writeln('Максимальная длина слова=',mx);
writeln('Это слова:');
reset(f);
while not eof(f) do
 begin
  readln(f,s);
  n:=length(s);
  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;
    s1:='';
    while (k<=n) and not(s[k] in rz) do {пока не разделитель и не конец строки}
     begin
      s1:=s1+s[k];
      k:=k+1;
     end;
    if length(s1)=mx then writeln(s1);
    i:=i+length(s1);
   end
  else i:=i+1;{пропускаем разделители}
 end;
close(f);
readln
end.