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

const   maxElements = 1000;var  arr : array[1..maxElements, 1..maxElements] of integer;  counterArray : array[1..maxElements] of integer;  i, j, n, m, countOfPositive: integer;begin  write('Введите количество строк: ');  readln(n);  write('Введите количество столбцов: ');  readln(m); writeln('Введите элементы массивы');  for i:=1 to n do     for j:=1 to m do       read(arr[i,j]);    countOfPositive := 0;  for j:=1 to m do    begin      for i:=1 to n do        if arr[i,j] > 0 then Inc(countOfPositive);      counterArray[j] := countOfPositive;      countOfPositive := 0;    end;    writeln('Количество положительных элементов в каждом столбце');  for j:=1 to m do    write(counterArray[j], ' ');end.