Составить блок схему для текста программы Pascal

function Ord(const b : Boolean) : Byte;
var
    Result : Byte;
begin
    Result := 0;
    if b then
        Result := 1;
    Ord := Result;
end;
var
    n, m, i, j : Byte;
    arr : Array[1..100, 1..100] Of Integer;
    sum : Integer;
    max, min : Integer;
begin
    Randomize;
    repeat
        Write('n=');
        ReadLn(n);
    until (n <= 100);
    repeat
        Write('m=');
        ReadLn(m);
    until (m <= 100);
    max := -100; min := 100; sum := 0;
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            arr[i, j] := Random(199) - 99;
            Write(arr[i, j]:6);
            if (max < arr[i, j]) then
                max := arr[i, j];
            if (min > arr[i, j]) then
                min := arr[i, j];
            {if Not Odd(arr[i, j]) then
                Inc(sum, arr[i, j]);}
            Inc(sum, Ord(Not Odd(arr[i, j])) * arr[i, j]);
        end;
        WriteLn;
    end;
    Dec(sum, max + min);
    for i := 0 to 1 do
        for j := 0 to 1 do
            arr[i * (n - 1) + 1, j * (m - 1) + 1] := sum;
    for i := 1 to n do
    begin
        for j := 1 to m do
            Write(arr[i, j]:6);
        WriteLn;
    end;
end.