Для заданной матрицы найти номер столбца с минимальной суммой положительных элементов. Использовать подпрограмму для нахождения суммы в одном столбце — Pascal(Паскаль)

program PascalGuru;

uses crt;

var
  A: array [1 .. 50, 1 .. 50] of integer;
  SUMMA: array [1 .. 50] of integer;
  i, j, n, min: integer;

function sum_stolb(j: integer): integer;
var
  rez: integer;
begin
  rez := 0;
  for i := 1 to n do
    if A[i, j] > 0 then
      rez := rez + A[i, j];

  sum_stolb := rez;
end;

{ ---------------------------------------------------- }
begin
  write('Razmer matritsy= ');
  readln(n);

  for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']= ');
      readln(A[i, j]);
    end;

  clrscr;
  write('Matritsa:');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:8);
  end;
  writeln;
  writeln;

  for j := 1 to n do
    SUMMA[j] := sum_stolb(j);

  min := 1;
  for i := 2 to n do
    if SUMMA[i] < SUMMA[min] then
      min := i;

  writeln('Otvet: ', min);

  readln;