Нужна прога в паскале. Даю 20 б

Подсчитать количество положительных элементов в каждом столбце матрицы размером МхN. элементы которой задаются с помощью датчика случайных чисел на интервале [-30; 40].

Const

M = 3;

N = 4;

Var

A:array[1 ... M, 1 ... N] of integer;

i, j, k:integer;

Begin

Randomize;

WriteLn ('Исходный массив:') ;

For i: = 1 to M do

Begin

For j: = 1 to N do

Begin

A[i, j]:=random (71) - 30;

Write (A[i, j]:3,' ')

End;

WriteLn;

End;

Write ('Номер столбца: ') ;

For j: = 1 to N do

Write (j:3,' ') ;

WriteLn;

Write ('Искомое кол-во:') ;

For j: = 1 to N do

Begin

k:=0;

For i: = 1 to M do

if A[i, j]>0 then k:=k+1;

Write (k:3,' ') ;

End;

End.

Пример:

Исходный массив:

33 - 21 - 24 4

-20 28 - 29 25

-15 - 1 11 3

Номер столбца: 1 2 3 4

Искомое кол-во: 1 1 1 3