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

[Ananim-Pbl6ak]

Из текста удалить все слова, в которые входит заданное бук-восочетание
помогите плз

[paloit]

362827711
Помощь платная.

[Fylhtq]

ты ч е не написал чтоль\?

[Ananim-Pbl6ak]

нет
не написал не знаю как

[Fylhtq]

мля я сам думаю как свой написать ни хрена ни кто не помогает

[Serge_Bliznykov]

Сообщение от Ananim-Pbl6ak

Из текста удалить все слова, в которые входит заданное бук-восочетание
помогите плз

поищите, тут на форуме десятки раз выкладывался код, который разбирал исходную строку на отдельные слова...
а потом уже банальщина:

if Pos(Сочетание, Очередном_Слове)>0 then _не включаем это слово  в выходную строку...

[Tkirill]

uses crt;
var
mas,ar:array[1..20] of string;
i,j,n,k:integer;
s,st:string;
begin
clrscr;
write(' CKOJIbKO CTPOK -> ');
readln(N);
writeln;
for i:=1 to n do
readln(mas[i]);
writeln;
write(' IIODCTPOKA -> ');
readln(st);
writeln;
for i:=1 to 20 do
ar[i]:='';
k:=1;
for i:=1 to n do
begin
j:=1;
s:='';
mas[i]:=mas[i]+' ';
repeat
if mas[i][j]<>' ' then s:=s+mas[i][j]
else
begin
if pos(st,s)=0 then ar[k]:=ar[k]+s+' ';
s:='';
end;
j:=j+1;
until j>length(mas[i]);
k:=k+1;
end;
for i:=1 to k-1 do
writeln(ar[i]);
readln;
end.