Паскаль! дана строка символов, состоящая из слов. заменить в словах слог "ба" на "ро" (например, "база" - "роза"). если таких слов нет, то выдать соответствующее текстовое сообщение.

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.

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