Составить программу с разработкой и использованием указанной в задании процедуры

type
  mas = array [1..4, 1..5] of integer;
 
var
  n1, n2, i, j, m2, m1: integer;
  s1, s2: real;
  a: mas;
 
procedure Pol(a: mas; var n1, n2: integer);
var
  i, j: integer;
begin
  for i := 1 to 2
    do 
    for j := 1 to 5
      do 
      if A[i, j] > 0
        then inc(n1);
  for i := 3 to 4
    do 
    for j := 1 to 5
      do 
      if A[i, j] > 0
        then inc(n2);
end;
 
procedure Ariphm(a: mas; var s1, s2: real; var m1, m2: integer);
var
  i, j: integer;
begin
  for i := 1 to 2
    do 
    for j := 1 to 5
      do 
      if A[i, j] <= 0
      then begin s1 := s1 + A[i, j];inc(m1); end;
  for i := 3 to 4
    do 
    for j := 1 to 5
      do 
      if A[i, j] <= 0
      then begin s2 := s2 + A[i, j];inc(m2); end;
  s1 := s1 / m1;
  s2 := s2 / m2;
end;
 
 
begin
  randomize;
  for i := 1 to 4
  do 
  begin
    for j := 1 to 5
    do 
    begin
      A[i, j] := random(100) - 50;
      write(A[i, j], ' ');
    end;
    writeln;
  end;
  writeln;
  Pol(a, n1, n2);
  writeln('1) ', n1);
  writeln('2) ', n2);
  Ariphm(a, s1, s2, m1, m2);
  if s1 > s2
    then writeln('вверху больше')
  else if s1 < s2
    then writeln('внизу больше')
  else writeln('одинаково');
end.