Составить Блок схему



uses  Crt;
const high = 20;
      low  = -20;
      n    = 5;
      m    = 7;
type
      massiv = array [1..n, 1..m] of integer;
var   X : massiv;

Procedure In_Mas(var mas:massiv; phight, plow : integer);
          var i, j : byte;
          Begin
               for i:=1 to n do
                   for j:=1 to m do
                       mas[i,j]:=plow+Random(phight-plow+1);
          End;

Procedure Out_Mas(const mas:massiv);
          var i, j : byte;
          Begin
               for i:=1 to n do
               begin
                    for j:=1 to m do
                        Write(mas[i,j]:4);
                    WriteLn;
               end;
          End;

Function Maximum(const mas:massiv):integer;
          var i, j, sum : byte;
          Begin
               sum:=0;
               i:= 2;
               repeat
                   for j:=1 to m do
                       if (mas[i,j]<0) then sum:=sum+1;
                   i:=i+2;
               until i>n;
               Maximum:=sum;
          End;

BEGIN
     Randomize;
     ClrScr;
     In_Mas(X, high, low);
     WriteLn('X:');
     Out_Mas(X);
     WriteLn('Количество отрицательных элементов в четных строках массива = ', Maximum(X):4);
END.