В качестве заменяющего текста пустую строку
program p48;
uses crt;
var a,b,c:string;
i:integer;
begin
clrscr;
write('Иcx текст a=');readln(a);
write('заменить строку ');readln(b) ;
write('Ha строку ');readln(c) ;
i:=i+1;
repeat
if copy(a,i,length(b)) = b then
a:=copy(a,1,i-1)+c+ copy(a,i+length(b) ,length(a));
i:=i+1;
until i >length(a)- length(b) + 1;
writeln('a=',a);
readln;
end.