Получить в новом файле отредактированный текст, в котором удалены повторные вхождения слов в предложения

Var s : string;
 
Procedure removeRepeating(s : string);
Var t , last : string;
    i : integer;
Begin
    t := '';
    last := '';
    s := s + ' ';
    for i := 1 to length(s) do begin
        if s[i] = ' ' then begin
            if t <> last then
                write(t , ' ');
            last := t;
            t := '';    
        end else t := t + s[i];
    end;
End;
    
 
Procedure analyzeLine(s : string);
Var i : integer;
    t : string;
Begin
    t := '';
    for i := 1 to length(s) do begin
        if (s[i] = '.') or (s[i] = '!') then begin
            removeRepeating(t + s[i]);
            t := '';
        end else t := t + s[i];
    end;
    writeln;
End;
 
Begin
    assign(input , 'input.txt'); reset(input);
    assign(output , 'output.txt'); rewrite(output);
    while not eof do begin
        readln(s);
        analyzeLine(s);
    end;
    close(output);
End.

Program Failbl;
Const m=[' ','.','!','?'];
Var s,s1,s2:string;
    A:array[1..50] of string;
    f,g:text;
    i,k:byte;
Function kak_to_tak(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;
    kak_to_tak:=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 kak_to_tak(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.