Question

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

Answer 1

------------------------