Подсчитать количество положительных частей в каждом столбце матрицы размером МхN, элементы

Const
   M = 3;
   N = 4;
Var
   A:array[1..M,1..N] of integer;
   i,j,k:integer;
Begin
WriteLn('Введите матрицу A(',M,',',N,'):');
For i:= 1 to M do
    For j:= 1 to N do
        Read(A[i,j]);
WriteLn('Количества положительных частей в столбцах:');
For j:= 1 to N do
    Begin
    k:=0;
    For i:= 1 to M do
        if A[i,j] gt; 0 then k:=k+1;
    Write(k,' ')
    End;
End.