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

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

Ребят, помогите пожалуйста решить пару задач. Напишите хотя бы основную часть.Заранее огромное спасибо 1)Дан двумерный массив A(n ×m) . Найти среднее геометрическое положительных элементов в последней строке матрицы.

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

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

  for j:=1 to m do
    if a[n,j]>0 then begin
      inc(k); // Г±Г·ГЁГІГ*ГҐГ¬ ГЇГ®Г«Г®Г¦ГЁГІГҐГ«ГјГ*Г»ГҐ
      p:=p*a[n,j]; // Г±Г·ГЁГІГ*ГҐГ¬ ГЇГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ
    end;
  Avr:=exp(ln(p)/k); // Г§Г¤ГҐГ±Гј Avr - Г±Г°ГҐГ¤Г*ГҐГҐ ГЈГҐГ®Г¬ГҐГІГ°ГЁГ·ГҐГ±ГЄГ®ГҐ

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

В цикле for перебираются элементы массива a от 1 до m.
Если элемент a[n,j] больше нуля, то увеличивается счетчик k.
Переменная p вычисляется как произведение элементов a[n,j] и a[m,j].
Вычисляется логарифм по основанию e по модулю k.
Результат выводится в переменную Avr.
Значение Avr выводится на экран.