Сумма положительных эл-тов в матрице

[Student_1]

Задана матрица А(10, 9). Вычислить и запомнить сумму и число положительных элементов каждого столбца матрицы. Результаты получить в виде двумерного массива. Диапазон [-20; 20].

У меня возникла сложность в последней части:
"Результаты получить в виде двумерного массива"

Кто подскажет, как это сделать. Вот набросок программы, то что уже написал:

uses
  CRT;
 
const
  n = 10;
  m = 9;
 
type
  mas = array [1..n, 1..m] of integer;
 
var
  a: mas;
  i, j: byte;
  sum, sum2: integer;
 
procedure summa(var b: mas; l: integer);
begin
  sum := 0;
  sum2 := 0;
  for i := 1 to n do
    for j := 1 to m do
    begin
      if b[i, j] > 0 then
      begin
        inc(sum2);
        sum := sum + b[i, j];
      end;
    end;
end;
 
begin
  ClrScr;
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(40)-20;
      write(a[i, j]:5);
    end;
    writeln;
  end;
 
  readkey
end.

[andrewpalkin]

const
  n = 10;
  m = 9;
 
type
  mas = array [1..n, 1..m] of integer;
  mas1 = array [1..m, 1..2] of integer;
var
  a: mas;
  b: mas1;
  i, j: byte;
 
begin
  randomize;
  
  for i := 1 to m do
  begin
    b[i,1] := 0;
    b[i,2] := 0;
  end;
  
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(40)-20;
      write(a[i, j]:5);
      if(a[i, j] >= 0) then
        b[j,2] := b[j,2]+1;
      b[j,1] := b[j,1] + a[i, j];
    end;
    writeln;
  end;
  
  writeln;
  for i := 1 to m do  
  begin
    write('Sum of the ',i,' collumn = ',b[i,1]);
    writeln(' ; Number of positive numbers = ',b[i,2]);
  end;
 
end.

[Student_1]

andrewpalkin, спасибо за помощь, но забыл написать, что было условие:Обработка массива должна быть реализована в подпрограмме.
Если вам не сложно, не могли бы вы еще раз подредактировать код.
Попробовал переделать сам, пока получилось это:

uses
  CRT;

const
  n = 10;
  m = 9;

type
  mas = array [1..n, 1..m] of integer;
  mas1 = array [1..m, 1..2] of integer;
var
  a: mas;
  b: mas1;
  i, j: byte;
  
procedure summa(var a: mas; b: mas1);
begin
for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      if(a[i, j] >= 0) then
        b[j,2] := b[j,2]+1;
      b[j,1] := b[j,1] + a[i, j];
   end;
    end;
end;
  
begin
clrscr;
  randomize;
   for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(40)-20;
      write(a[i, j]:5);
    end;
    writeln;
  end;

  writeln;
  for i := 1 to m do
  begin
    write('Sum of the ',i,' collumn = ',b[i,1]);
    writeln(' ; Number of positive numbers = ',b[i,2]);
  end;

end.

Видимо, я уже пишу глупость, а не код, но что то тема массивов для меня оказалась трудно усвояемая.

[andrewpalkin]

Не забываем нажимать на весы

const
  n = 10;
  m = 9;

type
  mas = array [1..n, 1..m] of integer;
  mas1 = array [1..m, 1..2] of integer;
var
  a: mas;
  b: mas1;
  i, j: integer;
  
function summa(var a: mas):mas1;
var i, j: integer;
  b: mas1;
begin;

for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      if(a[i, j] >= 0) then
        b[j,2] := b[j,2]+1;
      b[j,1] := b[j,1] + a[i, j];
   end;
   end;
   summa:=b;
end;
  
begin
  randomize;
   for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(40)-20;
      write(a[i, j]:5);
    end;
    writeln;
  end;
  b:=summa(a);
  writeln;
  for i := 1 to m do
  begin
    write('Sum of the ',i,' collumn = ',b[i,1]);
    writeln(' ; Number of positive numbers = ',b[i,2]);
  end;
  
end.