Помогите, пожалуйста, нарисовать блок схему.Вот задачка.var s:string;begin s:=039;min039;;

Помогите, пожалуйста, нарисовать блок схему.
Вот задача.
var
s:string;
begin
s:='min';
while pos('min',s) gt; 0 do begin
insert('max',s,pos('min',s));
delete(s,pos('min',s),3);
end;
writeln(s);
end.