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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.

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

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