Дано предложение. Заменить в нем все вхождения буквосочетания БИТ на РОГ — Pascal(Паскаль)

var

 s:string;
 p:integer;
begin
 readln(s);
 while pos('БИТ',S)>0 do
  begin
   p:=pos('БИТ',S);
   delete(s,p,3);
   insert('РОГ',s,p);
  end;
 writeln(s); 
 
end.