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

Var s: string;
    n,k: integer;
begin
  n:=1; k:=0;
  write('строчка: ');  readln(s);
  while ngt;0 do
  begin
    n:=pos('ба',s);
    if (ngt;0) then
    begin
      k:=k+1;
      s[n]:='р';
      s[n+1]:='о';
    end;
  end;
  if kgt;0 then writeln('новая строчка: ',s)
  else writeln('нет слога "ба" ');
end.

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