Путем вставок и удаления символов исправить ошибки в слове пррпцесор — Pascal(Паскаль)

var
s:string;
begin
  s:='prrpcesor';
  s:=copy(s,1,2)+copy(s,8,1)+copy(s,5,3)+copy(s,7,3);
  writeln(s);
end.