двухмернай массив

Uses
    CRT;
Type
    Arr = Array[1..10, 1..10] of Integer;
Var
   B: Arr;
   m, n: Byte;
//======================================
Procedure Input(Var Ar: Arr; m, n: Byte);
Var
   i, j: Byte;
Begin
     Randomize;
     For i := 1 to m do
         For j := 1 to n do
             Ar[i,j] := integer(random(20))-7;
End;
//======================================
Procedure Output(Var Ar: Arr; m, n: Byte);
Var
   i, j: Byte;
Begin
     Writeln('Массив В:');
     For i := 1 to m do
         Begin
              For j := 1 to n do
                  Write(Ar[i,j]:3);
              Writeln;
         End;
End;
//======================================
Procedure NonZero(Ar: arr; m, n: Byte);
Var
   c, i, j: Byte;
Begin
     c := 0;
     For i := 1 to m do
         For j := 1 to n do
             if Ar[i,j] <> 0 Then
                Inc(c);
     Writeln('Количество ненулевых элементов = ',c);
End;
//======================================
BEGIN
     Write('Введите кол-во строк = ');
     Read(m);
     Write('Введите кол-во столбцов = ');
     Read(n);
     input(B,m,n);
     output(B,m,n);
     NonZero(B,m,n);
END.