Составить блок-схему к данному

Begin
    var n := ReadlnInteger('n =');
    var max := integer.MinValue;
    var min := integer.MaxValue;
    for var i := 1 to n do
    begin
        var m := ReadlnInteger('mi =');
        if (m gt; max) then max := m;
        if (m lt; min) then min := m;
    end;
    Writeln('max = max, min = min');
end.