подпрограмму, удаляющую из строки повторяющиеся слова (Delphi)

[kt35]

помогите пожалуйста написать подпрограмму удаляющую из строки повторяющиеся слова.
кусочек уже есть,нужно дописать.Заранее спсибо.

var S: string;  P,n : integer;
begin
S : = ' Look at my horse horse ' ;
p : = Pos ( 'horse' , S );
n:= length ('S');
P:= Length (S);
Delete (S,P,n);
writeln (S);
readln;
end.

или может быть что-то неверно?


_________
1. Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.


2. Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Alex11223]

Всё неверно.

p : = Pos ( 'horse' , S );

А если строка будет не Look at my horse horse, а другая?

n:= length ('S');

Зачем вам длина строки, состоящей из 1 символа S?

p : = Pos ( 'horse' , S );
P:= Length (S);

Присваиваем переменной р, то что вернула функция pos и сразу же перезаписываем переменную р другим значением.

К тому же в задании сказано сделать это с помощью подпрограммы.