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

[Praud]

Найти и удалить повторные вхождения слов.

Пример:
Входная строка - " Я по два раза раза!!!не повторяю."
Выходная строка - " Я по два раза!!!не повторяю."

То есть все знаки должны сохраниться.

Пробовал разбить строку на слова поместив слова в строковый массив и попарно их сравнивать формирую новую, но при таком подходе знаки не сохраняются. Как я понимаю тогда нужно обрабатывать исключительно входную строку, но я не представляю как это должно выглядеть.

[Poma][a]

Я бы делал так :

строка = строка + ' ';
while не конец строки do
     если i-тый символ = разделитель, тогда
          если существует такое же слово в части строки, которую мы еще не использовали, уберем его.
          слово = пустая строка
     иначе если добавим i-ый символ к слову

Но тут проблемка..

привет привет физкульт-привет

// спасибо Аватару
Если нужно получить

привет физкульт-

то всё хорошо..
иначе..

[Stilet]

Попрбую перефразировать себя же поддержав Рому.

var s:string; a:array[1..100] of string;
  i,count:integer;
begin   
 s:='Hello my world';
 count:=1;
 i:=1; while (i<=length(s)) do begin
   if s[i] in [' ','!','?'] then begin 
     if pos(a[count],copy(s,i,Length(s))<>0 then begin
      a[count]:=''; 
     end else
      inc(count);
     inc(i);
   end;
   a[count]:=a[count]+s[i];
   inc(i);
 end;
 for i:=1 to count do write(a[i],' ');

Не проверял.

[Praud]

можете расшифровать что тут написано?
if s[i] in [' ','!','?'] then begin
if pos(a[count],copy(s,i,Length(s))<>0 then begin

просто на си нужно написать, а это не пойму что

[BDA]

if s[i] in [' ','!','?'] then - если символ s[i] равен пробелу, восклицательному или вопросительному знаку, то...
if pos(a[count],copy(s,i,Length(s)))<>0 then - если позиция символа a[count] в строке copy(s,i,Length(s)) не равна нулю (то есть он в ней есть), то...

[Stilet]

если позиция символа a[count]

Не символа а слова.
Алгоритм почти полностью по посту Ромки.

[Smitt&Wesson]

BDA, тоже забухал? Не удивительно, от такой-то жизни...

[Praud]

Понял, только проблема
по его алгоритму при входной строке "привет привет физкульт-привет"
он получает "привет физкульт-" , а надо "привет физкульт-привет"

[Poma][a]

Тогда "здрасте, геммор"..
Тогда скажем, что программа будет работь с том, и только в том случае, когда корректно расставлены пробелы.
(Тоесть 'привет!привет') быть не может, а вот 'привет! привет' может..
Тогда будем искать ' привет'.. и всё..
Но есть контрпример..
Его не помню.. (Вроде его тоже Аватар придумал..)

[Stilet]

Да я тоже склонен в таком случае в четкой расстановке знаков между словами.
Или тогда добавь к исходной строке пробел и делай поиск по подстроке+пробел.
Но все равно я бы уделил внимание расстановке пробелов, если это не противоречит заданию.