Proizvedenie :: Matixes

Program proizvedenie;
Type
   Matrix=array [1..10, 1..10] of integer;
Var
   A: matrix;
   N, m, i, j: byte;
   P: integer;
Procedure vvod (var m: matrix);
Var k , h : byte ;
Begin
   For i :=1 to n do {переменная n для процедуры является глобальной, а значит «известной»}
      For j :=1 to m do {переменная m для процедуры является глобальной, а значит «известной»}
         M[i,j]:= random(10);
End;
Procedure print (m: matrix);
Var k, h: byte;
Begin
   For i:=1 to n do
   begin
      For j:=1 to m do
         Write (M[i, j]: 4);
      Writeln;
   end ;
End ;
Begin {начало основной программы}
   Writeln (‘Введите размерность матрицы:’);
   Readln(N, M);
   Vvod(a);
   Print(a);
   P:=1;
   For i:=1 to N do
      For j:=1 to M do
         If a[i, j]<>0 then p:=p*a[i, j];
   Writeln ( p );
End .