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

[Smitt&Wesson]

Poma][a, а трим поставить, не судьба?

[Poma][a]

и делай поиск по подстроке+пробел.

'привет. привет, Stilet'

Расстановка - верна! А вот 2-ой привет, я боюсь мы не найдем..
Тогда, я бы делал так

a[1..SIZE] = (' ', '.', ',', '!', '?', '...'); // что-то еще..

<получили слово>
for k := 1 to SIZE do
    s := Copy(s, 1, i-1)+StringReplace(Copy(s, i, Length(s)), ' '+word+a[i], a[i], rfReplaceAll, rfIgnoreCase ] );

Я не проверял!

Poma][a, а трим поставить, не судьба?

Зачем? Он уберет пробелы в начале и конце.. Да и убирать их не надо!

[Stilet]

2-ой привет, я боюсь мы не найдем..

Да уж... Затык все равно будет. Тут другой подход нужен в корне.

[Smitt&Wesson]

Сообщение от Stilet

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

Как правило, всегда противоречит, поэтому и нужно (недно) предпринимать "меры"

[Praud]

Задание звучит так:

Дана строка, содержащая текст на русском языке. В предложении некоторые слова записаны подряд несколько раз. Заканчивается предложение символом "/". Получить в новой строке отредактированный текст, в котором удалены подряд идущие вхождения слов в предложениях.

На счет искусственных проверок на входе, даже не знаю...

[Poma][a]

uses SysUtils;

const
	size = 5;
	a : array[1..size] of Char = (',', '.', ' ', '?', '!');
	
var
	s, wrd : string;
	i, j : Integer;
	
begin
	ReadLn(s);
	s := s + ' ';
	
	wrd := '';
	for i := 1 to Length(s) do begin
		if s[i] in [',', '.', ' ', '!', '?'] then begin
			for j := 1 to size do
				s := Copy(s, 1, i-1) + StringReplace(Copy(s, i, Length(s)), ' '+wrd+a[j], '', [rfReplaceAll, rfIgnoreCase]);
			wrd := ''
		end;
			wrd := wrd+s[i]
	end;
	
	WriteLn(s)		
end.

Предлагаю так..
Только что делать с 'привет. привет,Stilet'.. Что должно получиться?

[Poma][a]

Блин! Ну вообще! Может лучше с начала полное задание публиковать?
При Вашем задании никаких проблем c физкульт-привет не будет!

[Praud]

По идеи "привет.привет,Stilet" и должно получится, ведь '.' - Разделитель в конце концов...

[Smitt&Wesson]

Сообщение от Poma][a

Блин! Ну вообще! Может лучше с начала полное задание публиковать?
При Вашем задании никаких проблем c физкульт-привет не будет!

А зачем? Так ведь интереснее и ТС и нам... .
Да и тема, вроде-как развивается...

[Praud]

Извиняюсь
Блин, напишите код полностью на си, я не пойму Pascal или Delphi от Stilet.
Подкину на пивко.