var
i:integer;
st:string; {строка }
s:char; {буква }
BEGIN
writeln('Введите строку слов:');
readln(st);
write('Введите букву: ');
readln(s);
st:=' '+st; {добавляем пробел в начале строки }
repeat {ЦИКЛ }
i:=pos(' '+s,st); {ищем слово на букву s }
inc(i); {пробел не считаем }
if i<>1 then {если слово нашли то }
repeat {цикл }
write(st[i]); {напечатать букву найденного слова }
delete(st,i,1); {удалить эту букву }
until (st[i]=' ')or(i=length(st)); {если слово кончилось то конец цикла}
writeln;
until i=1; {если больше нет найденных слов то КОНЕЦ ЦИКЛА}
writeln('st=',st);
END.