Текстовый файл: В каждой строке определить слово наибольшей длины

Const mn=[' ','.',',','!','?'];//разделители слов
Var f,g:text; 
    s,s1,smax:string;
    i:byte;
Begin
    Assign(f,'in.txt');Reset(f);//открываем файл для чтения
    Assign(g,'out.txt');Rewrite(g);//открываем файл для записи
    While not Eof(f) do //пока не конец файла делаем
    Begin
      readln(f,s);//считываем строку из файла
      s:=s+' ';s1:='';smax:='';//добавляем пробел к S, остальные строки пустыми делаем
      For i:=1 to Length(s) do //от 1 до конца строки
       //если очердной символ не входит в мн-во разделителей то добавляем его к строке
       if not(s[i] in mn) then s1:=s1+s[i] 
       //иначе
       else
       Begin
         //проверяем очередное слово и если оно больше max делаем это слово Max
         if Length(s1)>Length(smax) then smax:=s1;
         s1:='';//обнуляем строку s1 для формирования нового слова
       End;
      writeln(g,smax);//записываем в файл g max строку
    End;
    writeln('Результат работы записан в файл "out.txt"');
    Close(f);Close(g);//закрываем файлы
End.