Удалить из строки повторные вхождения слов

Const m=[' ','.','!','?'];
Var s,s1,s2:string;
    A:array[1..30] of string;
    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
    write('Введите предложение: ');readln(s);
    k:=0;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;
    writeln(s2);
    readln;
End.

const
  Delims=[' ',',',';',':','.','!','?'];
  Delim=' ';
var
  s, t: String;
  i: Integer;
begin
  Write('S: '); ReadLn(s); s:=Delim+s+Delim;
  for i:=Length(s)-1 downto 1 do
    if s[i] in Delims then
      if s[i+1] in Delims
      then Delete(s,i,1) 
      else s[i]:=Delim;
  for i:=1 to Length(s) do
    if not (s[i] in Delims) then t:=t+s[i]
    else begin
      if Pos(Delim+t+Delim,s)=i-Length(t)-1 then Write(t,Delim);
      t:='';
    end;
end.