Вычислить количества нулевых элементов и суммы отрицательных элементов двух матриц

type
  TArray = Array[Byte, Byte] Of Integer;
 
procedure PrintArray(const x: TArray; const n, m: Byte);
var
  i, j: Byte;
begin
  WriteLn;
  for i := 0 to n - 1 do
  begin
    for j := 0 to m - 1 do
      Write(x[i, j]:4);
    WriteLn;
  end;
  WriteLn;
end;
 
procedure InitArray(var x: TArray; var n, m: Byte);
var
  i, j: Byte;
begin
  Randomize;
  repeat
    Write('n=');
    ReadLn(n);
  until (n > 0);
  repeat
    Write('m=');
    ReadLn(m);
  until (m > 0);
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
      x[i, j] := Random(51) - 25;
  PrintArray(x, n, m);
end;
 
function GetNegSum(const x: TArray; const n, m: Byte): LongInt;
var
  i, j: Byte;
  Res: LongInt;
begin
  Res := 0;
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
      if (x[i, j] < 0)
        then
        Res := Res + x[i, j];
  GetNegSum := Res;
end;
 
function GetZeroCount(const x: TArray; const n, m: Byte): Word;
var
  i, j: Byte;
  Res: Word;
begin
  Res := 0;
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
      if (x[i, j] = 0)
        then
        Inc(Res);
  GetZeroCount := Res;
end;
 
 
var
  a, b: TArray;
  n1, n2, m1, m2: Byte;
 
begin
  InitArray(a, n1, m1);
  writeln('Количество 0: ', GetZeroCount(a, n1, m1));
  writeln('Сумма отрицательных: ', GetNegSum(a, n1, m1));
  InitArray(b, n2, m2);
  writeln('Количество 0: ', GetZeroCount(b, n2, m2));
  writeln('Сумма отрицательных: ', GetNegSum(b, n2, m2));
end.