var s:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
p:=pos('ба',s);
if p>0
 then 
  begin
  while p>0 do begin delete(s,p,2); insert('ро',s,p); p:=pos('ба',s); end;
  writeln(s);
  end
 else writeln('В строке нет слогов "ба"');
end.

Пример:
Введите строку:
база
роза