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

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var a := MatrRandomInteger(ReadInteger('m='), ReadInteger('n='), -50, 50); a.Println();
  Range(0, a.ColCount - 1).Select(t -> a.Col(t).Where(t -> t > 0).Count).Print;
end.

Пример:
m= 4
n= 8
 -48  24  13 -37 -42  11 -35   8
  16  40 -31 -21 -15   7  36  24
  28 -19 -35 -42  10  16  -1 -37
  33  39  19  -8  37 -26  12 -12
3 3 2 0 2 3 2 2