Найти сумму положительных элементов указанного столбца двумерного массива целых чисел

uses crt;
 
const
  nmax = 10;
  mmax = 10;
 
var
  A : array [1..nmax, 1..mmax] of integer;
  i, j, n, m : integer;
  Number_Col : integer;
  Sum : real;
  
begin
  ClrScr;
  Repeat
    Write('Количество строк (не более ' , nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Repeat
    Write('Количество столбцов (не более ' , mmax, ') = ');
    Readln(m);
  until m in [1..mmax];
  Writeln('Введите элементы: ');
  for i := 1 to n do
    for j := 1 to m do
      Readln(A[i, j]);
  ClrScr;
  Writeln('Исходная матрица: ');
  for i := 1 to n do
    begin
      for j := 1 to m do
        Write(A[i, j], ' ');
      Writeln;
    end;
  Repeat
    Write('Столбец: ');
    Readln(Number_Col);
  until Number_Col in [1..m];
  Sum := 0;
  for i := 1 to n do Sum := Sum + A[i, Number_Col];
  Writeln('Сумма ', Number_Col, ' столбца = ', Sum:0:0);
  Readln;
  
end.