Заменить в заданном тексте буквосочетание «min» на «max» — Pascal(Паскаль)

var
 s:string;
begin
 readln(s);
 while pos('min',s) > 0 do begin
   insert('max',s,pos('min',s));
   delete(s,pos('min',s),3);
 end;
 writeln(s);
end.