Найти среднее арифметическое положительных элементов матрицы - Pascal

Формулировка задачи:

Дается двумерный массив R[1..n, 1..m], n, m <= 12. Найти и вывести на экран средний положительный элемент с помощью процедур. Помогите пожалуйста. Pascal ABC.

Решение задачи: «Найти среднее арифметическое положительных элементов матрицы»

Листинг программы

function FAVR(const ar: TArray; const n, m: TRange): Real;
var  i, j: TRange;
begin
    Result := 0;
    for i := Low(TRange) to n do //for i := 1 to n do
        for j := Low(TRange) to m do //for j := 1 to m do
            if (ar[i, j] > 0)
            then
                Result := Result + ar[i, j];
    Result := Result / n / m;
end;

Объяснение кода листинга программы

Объявляется функция FAVR с параметрами: ar - массив, n и m - размерности массива типа TRange
Определяются переменные i и j типа TRange для циклов
Устанавливается значение переменной Result равным 0
Начинается вложенный цикл с переменной i от нижнего предела Low(TRange) до n
Внутри второго цикла с переменной j от нижнего предела Low(TRange) до m проверяется, если элемент массива ar с координатами [i, j] больше 0, то прибавляется к переменной Result значение этого элемента
После завершения циклов вычисляется среднее арифметическое положительных элементов: Result делится на произведение n и m
Полученное значение среднего арифметического записывается в переменную Result
Функция завершается, возвращая вычисленное среднее арифметическое значение