Повторное вхождение слов

[as1212]

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

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

Заранее благодарен

[as1212]

Вот код помогите дописать.

PROGRAM PR32;
USES CRT;

VAR I:string; A,B,C,N,X,Y:CHAR; S,Z:integer;
BEGIN CLRSCR;
WRITELN('ÓÂÅÄÈ ÏÎÑ˲ÄÎÂͲÑÒÜ ÑÈÌÂÎ˲Â');
READ(I);
IF (I=I) THEN
BEGIN
S:=pos(a,a); read(s);
Z:=length(a); read(z);
delete(I,s,z);writeln(I);
END;

WRITELN('new text');
WRITE(I);



N:=READKEY
END.