Обработка файлов в Pascal

Const m=[' ','.','!','?'];
Var s,s1,s2:string;
    A:array[1..50] of string;
    f,g:text;
    i,k:byte;
Function Proverka(s:string;k:byte):boolean;
Var i:byte;
    b:boolean;
Begin
    b:=true;
    For i:=1 to k do
     if A[i]=s then b:=false;
    Proverka:=b;
End;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    k:=0;
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';s1:='';s2:='';
      For i:=1 to Length(s) do
       if not(s[i] in m) then s1:=s1+s[i]
        else
        Begin
          if Proverka(s1,k) then
          Begin
            s2:=s2+s1+s[i];
            inc(k);
            A[k]:=s1;
          End;
          s1:='';
        End;
      if s2<>'' then writeln(g,s2);
    End;
    writeln('Преобразование окончено!');
    Close(f);Close(g);
    readln;
End.