Сформировать второй файл, куда поместить все слова, имеющие заданную длину из первого - Turbo Pascal

Const mn=[' ',',','.','?','!'];
Var f,g:text;
    s,st:string;
    i,len:byte;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    write('Введите длину: ');readln(len);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';st:='';
      For i:=1 to Length(s) do
       if not(s[i] in mn) then st:=st+s[i]
       else
       Begin
         if Length(st)=len then writeln(g,st);
         st:='';
       End;
     End;
     writeln('Результат в файле "out.txt"');
     Close(f);Close(g);
     readln;
End.