Напечатать предложение, удалив из него повторное вхождение слова

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 m=[' ','.','!','?'];
Var s,s1,s2:string;
    A:array[1..30] of string;
    i,k:byte;
Function Proverka(s:string;k:byte):byte;
Var i,j:byte;
Begin
    j:=1;
    For i:=1 to k do
     if A[i]=s then j:=0;
    Proverka:=j;
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)=1 then
        Begin
          s2:=s2+s1+s[i];
          inc(k);
          A[k]:=s1;
        End;
        s1:='';
      End;
    writeln(s2);
    readln;
End.