uses crt-

var word1,word:String-

dl,n:integer-

label 1-

begin

— — — — — clrscr-

— writeln(‘Введите текст’)-

— readln(word1)-

— writeln(‘Введитебукву, которую надо удалить’)-

— readln(word)-

dl:=length(word1)-

n:=pos(word,word1)-

1:if n&gt-0 then

begin

Delete(word1,n,1)-

insert(‘ ‘,word1,n)-

dl:=length(word1)-

if dl&gt-0 then

begin

n:=pos(word,word1)-

goto 1-

end

end-

writeln(word1)-

end.