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

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.