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

// 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> 0).average) end. пример количество строк в массиве: 5 12 количество столбцов в массиве: *** исходный массив [5,12] ***   99 -73 -67  46 -95 -79  23  98 -53 -58  83 -12   68  62 -75 -25 -29    2 -22    5 -75 -83 -22  31   -41 -68  29  68 -92  95  97 -30 -23 -85  -5 -59   21 -99  57  43  -4  39  30  74 -14  55 -81  24   -43  96    3 -97  31  74 -52  82  48    1 -13  73 ср.арифм. положительных: 51.9

Ну как вариант разбить на триплеты  и перевести из   троичной в десятичную, справа дописываем ноль, т.к. в тексте обычно конец справа если алфавит нумеровать с нуля это 16 и 15е буквы, если с единицы, то 17 и 16 ответ "по" (программное обеспечение)