В данной строке в последнем слове после символа «В» ставить пробел — Pascal(Паскаль)

Program Stroka;
Uses Crt;
var
 st:string;
 p:integer;
begin
  st:='Привет, Навуходоноссор';
  writeln('Исходник: ',st);
  p:=length(st);
  while st[p]<>'в' do p:=p-1;
  insert(' ',st,p);
  writeln('Результат: ',st);
  readln;
end.