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.