uses crt;
var
word1, word: String;
dl, n: integer;
label1;
begin
clrscr;
writeln('Введите текст');
readln(word1);
writeln('Введите букву, которую надо удалить');
readln(word);
dl := length(word1);
n := pos(word, word1);
1:
if n > 0 then
begin
Delete(word1, n, 1);
insert(' ', word1, n);
dl := length(word1);
if dl > 0 then
begin
n := pos(word, word1);
goto 1;
end;
end;
writeln(word1);
end.