Обработка строк

[Тигран001]

Получить строку, удалив из нее повторные вхождения слов.
(примечание: входной информацией является строка - последовательность слов, разделенных пробелами).

напишите пожалуйста )

[Don Karleone]

var
ST: String;
Str1,Str2,Str3: String;
i: Integer;

begin
Readln(ST); {ввод исходной строки}
i:=1; {индекс символа}
Str3:=''; {вспомогательная строка}
while i <= Length(ST) do
begin
Str1:='';
Str2:='';
while (ST[i] in ['A'..'z']) and (i <= Length(ST)) do
begin
Str1:=Str1 + ST[i];
Inc(i);
end;
while not (ST[i] in ['A'..'z']) and (i <= Length(ST)) do
begin
Str2:=Str2 + ST[i];
Inc(i);
end;
if (Pos(Str1,Str3)=0) then Str3:=Str3 + Str1 + Str2;
end;
ST:=Str3;
Writeln;
Write(ST);
readln;
end.

[Тигран001]

Сообщение от Don Karleone

var
ST: String;
Str1,Str2,Str3: String;
i: Integer;

begin
Readln(ST); {ввод исходной строки}
i:=1; {индекс символа}
Str3:=''; {вспомогательная строка}
while i <= Length(ST) do
begin
Str1:='';
Str2:='';
while (ST[i] in ['A'..'z']) and (i <= Length(ST)) do
begin
Str1:=Str1 + ST[i];
Inc(i);
end;
while not (ST[i] in ['A'..'z']) and (i <= Length(ST)) do
begin
Str2:=Str2 + ST[i];
Inc(i);
end;
if (Pos(Str1,Str3)=0) then Str3:=Str3 + Str1 + Str2;
end;
ST:=Str3;
Writeln;
Write(ST);
readln;
end.

огромное тебе спасибо !!!!