Найти количество положительных элементов двумерного массива (паскаль)

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('кол-во положительных: ',a.elementsbyrow.where(x-> x> 1).count) end. пример количество строк в массиве: 5 количество столбцов в массиве: 12 *** исходный массив [5,12] ***   -64  16  -1  59 -63 -37 -54  28 -40  39  17 -84   89    8  38  56 -51  20  49  28 -90 -85    1  81   13  52 -10  15  28 -95  76 -77 -54 -27  33  -9   22  43 -40  14  58  19 -75  26  92  94 -59  87   -95  -8  65 -24 -50  62  26 -79 -85  18 -54 -16 кол-во положительных: 32

Var n,m,i,j,k: integer; a: array[1..100,1..100] of integer; begin readln(n,m); for i: =1 to n do for j: =1 to m do readln(a[i][j]); for i: =1 to n do for j: =1 to m do if a[i][j]> 0 then k: =k+1; writeln(k); end.

Трудно объяснить, но ответ 3