Паскаль! Дана строка символов, состоящая из слов. Заменить в словах слог "ба" ** "ро"...

Question

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

Answer 1

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.

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