Паскаль!

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

Var s: string;

n, k: integer;

begin

n:=1; k:=0;

write ('строка: ') ; readln (s) ;

while n>0 do

begin

n:=pos ('ба', s) ;

if (n>0) then

begin

k:=k+1;

s[n]:='р';

s[n+1]:='о';

end;

end;

if k>0 then writeln ('новая строка: ', s)

else writeln ('нет слога "ба" ') ;

end.

строка: большой баобаб

новая строка: большой роороб