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

var
ar: Array[Byte, Byte] Of ShortInt;
i, j, k, n, m, jMax: Byte;
temp: ShortInt;
flag: Boolean;
begin
repeat
Write('n(1..128)=');
ReadLn(n);
until (n in [1..128]);
repeat
Write('m=');
ReadLn(m);
until (m > 0);
Randomize; WriteLn('0:');
for i := 0 to n - 1 do
begin
jMax := 0;
for j := 0 to m - 1 do
begin
ar[i, j] := Random(199) - 99;
Write(ar[i, j]:4);
if (ar[i, j] > ar[i, jMax])
then
jMax := j;
end;
ar[i, jMax] := 0;
WriteLn;
end;
WriteLn('1:');
for i := 0 to n - 1 do
begin
for j := 0 to m - 1 do
Write(ar[i, j]:4);
WriteLn;
end;
i := 0;
while (i < n) do
begin
if (ar[i, 0] mod 3 = 0)
then
begin
for k := n downto i + 1 do
for j := 0 to m - 1 do
ar[k, j] := ar[k - 1, j];
Inc(n);
for j := 0 to m - 1 do
ar[i, j] := 0;
Inc(i);
end;
Inc(i);
end;
WriteLn('2:');
for i := 0 to n - 1 do
begin
for j := 0 to m - 1 do
Write(ar[i, j]:4);
WriteLn;
end;
j := 0; flag := False;
while ((j < m) And (Not flag)) do
begin
i := 0;
while ((i < n) And (Not flag)) do
begin
flag := (ar[i, j] < 0) And (Not Odd(ar[i, j]));
Inc(i);
end;
Inc(j);
end;
if flag
then
begin
for k := j - 1 to m - 2 do
for i := 0 to n - 1 do
ar[i, k] := ar[i, k + 1];
Dec(m);
end;
WriteLn('3:');
for i := 0 to n - 1 do
begin
for j := 0 to m - 1 do
Write(ar[i, j]:4);
WriteLn;
end;
if (m > 1)
then
for i := 0 to n - 1 do
begin
temp := ar[i, 1];
ar[i, 1] := ar[i, m - 2];
ar[i, m - 2] := temp;
end;
WriteLn(' 4:');
for i := 0 to n - 1 do
begin
for j := 0 to m - 1 do
Write(ar[i, j]:4);
WriteLn;
end;
end.