Var
s,subs:string;
c:char;
i,n,p:integer;
begin
Writeln('Введите последовательность слов, разделенных пробелом');
Readln(s);
s:=' '+s+' ';
Write('Введите искомый символ: '); Readln(c);
subs:=' '+c;
n:=Length(s);
repeat
p:=Pos(subs,s);
if p>0 then begin
i:=p+2;
while (s[i]<>' ') and (i<=n) do i:=i+1;<br> Write(Copy(s,p+1,i-p-1),' ')
end;
if i<=n then s:=Copy(s,i,n-i+1)<br> until p=0
end.
Тестовое решение:
Введите последовательность слов, разделенных пробелом
а роза упала на лапу азора
Введите искомый символ: а
а азора