Дана матрица размерностью 4х5. Элементы матрицы определяются случайным образом в диапазоне -1000.1000

uses crt;
 
const
  nmax = 4;
  mmax = 5;
 
type
  matrix = array [1..nmax, 1..mmax] of integer;
 
procedure enter_matrix (var a : matrix; n, m : integer);
var
  i, j : integer;
begin
  randomize;
  for i := 1 to n do 
    for j := 1 to m do
      a[i, j] := random(2001) - 1000;
end;
 
procedure print_matrix (a : matrix; n, m : integer);
var
  i, j : integer;
begin
  for i := 1 to n do
    begin
      for j := 1 to m do Write(A[i, j]:6);
      Writeln;
    end;
end;
 
procedure value (a : matrix; n, m : integer);
var
  i, j : integer;
  count_p, count_n : integer;
begin
  count_p := 0; count_n := 0;
  for i := 1 to n do
    for j := 1 to m do
      begin
        if a[i, j] > 0 then inc(count_p);
        if a[i, j] < 0 then inc(count_n);
      end;
  if count_p > count_n then writeln('Положительных больше')
    else if count_p < count_n then writeln('Отрицательных больше')
      else writeln('Равенство!');
end;
 
 
var
  a : matrix;
  n, m : integer;
  
begin
  ClrScr;
  Repeat
    Write('Количество строк (не более ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Repeat
    Write('Количество столбцов (не более ', mmax, ') = ');
    Readln(m);
  until m in [1..mmax];
  enter_matrix(a, n, m);
  ClrScr;
  print_matrix(a, n, m);
  value (a, n, m);
end.