Как удалить из строки повторы слов?, Строки Опции

[Shmanich]

Люди, помогите. Очень нужна программа на Паскале, которая бы удалила повторы слов в строке, а затем выводила результат.

Например: rabbit wolf wolf
Должно получиться “rabbit wolf”.
wolf rabbit wolf
Должно получиться “wolf rabbit” или “rabbit wolft”.
bat bat
Должно получиться “bat”.
pig pig cat
Должно получиться “pig cat”.

В качестве разделителя слов - пробелы.
Желательно код с комментариями.

[Shmanich]

Для затравки кидую код. Нашел в сети, но он работал неправильно. Затем заменил всего одну строчку и программа стала выдавать верные значения, кроме одной комбинации.
Итак:

program string; 
uses crt; 
const 
dividers=[' ']; 
var 
tempS, s: string; 
a: array[1..128] of string; 
i, j, max: integer; 
flag: boolean; 
begin 
write('Enter string: '); readln(s); 
tempS:=''; 
{vaidelyaem i udalyaem povoti slov iz stroki} 
i:=1; 
while i<=length(s) do 
begin 
if not (s[i] in dividers) then tempS:=tempS+s[i]; 
if (s[i] in dividers) or (i=length(s)) then 
begin 
flag:=true; 
if tempS<>'' then 
begin 
j:=1; 
repeat 
if tempS=a[j] then flag:=false; 
inc(j) 
until 
(tempS=a[j]) or ( j>max ); 
end; 
if flag then 
begin 
inc(max); 
a[max]:=tempS; 
end 
else 
begin 
Delete(s,i-i-length(tempS),length(tempS)); {udalenie} 
i:=i-length(tempS); 
end; 
tempS:=''; 
end; 
inc(i); 
end; 
writeln('Result:', s); 
Readkey; 
end. 

Работа программы:

Enter string: cat cat
Result: cat

Enter string: cat cat dog
Result: cat dog

Enter string: cat dog cat
Result: dog cat

Но когда вводишь "dog cat cat" (без кавычек), резльтат остается без изменений .
Помогите найти ошибку.

Сообщение отредактировано: Shmaniche - 9.06.2010 11:32