Помогите написать програмку на паскале Опции

[sergey121212]

Дан текст. Составить программу удалив из него повторное вхождение слов.

Вот что я попытался сделать но все равно не получается

1. Сделал массив из 8 слов и удалил из него одиннаковые

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.

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

2. Написал часть программы которая копирует каждое слово текста в массив а вот тальше впал в ступор.

program lab10;
uses crt;
Var C: String;
	I,Pb,j,l,n,k:integer; x: array [1..1000]  of string; s: array [1..1000]  of string;

	flag: boolean;
Begin
 Write('Введите текст: ');
 ReadLn(c);
 C:=C+' '; n:=Length(c);
 K:=0;
 While pos(' ',C) <> 0 Do
	 Begin
	 Pb := pos(' ',C);
	  for i:=1 to pb do
	  x[i]:=Copy(C,1,Pb-1);
	  if x[i]=Copy(C,1,Pb-1) then K:=k+1;
	  Delete(C,1,Pb);
	  end;
writeln;