Помогите нужно программу до делать Надо в предложений повторяющийся слова убрать

[сабр]

var
s:string[80];
i,k,t,y:integer;
begin
writeln('vedite predlozhenie');
read(s);
writeln('vedinoe predlozhenie');
writeln(s);
k:=1;
for i:=1 to length(s) do
if s[i]=' ' then begin t:=k; break;end else inc(k);
y:=0;
for i:=1 to length(s) do
if copy(s,i,t-1)= copy(s,1,k-1) then begin inc(y);end;
if y=1 then writeln(copy(s,1,k-1))
end.

[NikiToZz_]

Держи готовую программу: удаляет повторяющиеся слова в строке.

uses crt;
const n = 8;
 
type M_st=array[1..n] of string[20];
 
 
var
    a:M_st;
    s:M_st;
    i,j,l: integer;
    flag: boolean;
 
begin
   
writeln('Vvedite 8 slov'); 
for i := 1 to n do 
readln(a[i]);
writeln; 
 
 
 
j := 1;
for i := 1 to n do 
begin
flag := true;
for l := 1 to j do
if s[l] = a[i] then
flag := false;
if flag = true then begin
s[j] := a[i];
j := j+1
end;
end;
 
 
for i := 1 to j-1 do
write (s[i],' ');
writeln; 
readln;
writeln;
end.