Двумерный массив, Помогите пожалуйста Опции

[goosberry]

Задача: найти среднее геометрическое положителных элементов каждого столбца матрицы d(n,m). Поместить их в массив m(n, m<12).

Мне удалось написать программу, вычисляющую лишь общее средее геометрическое, остальное, к сожалению, мне не понятно. Помогите пожалуйста, буду очень признательна)))

program zadacha;
uses crt;
type a=array [1..100, 1..100] of integer;
var d:a;
    i,j,n,m,k,pol:integer;
    sr:real;
begin
     writeln('vvedite kolichestvo stroc massiva');
     readln(n);
     writeln('vvedite kolichestvo stolbcov massiva');
     readln(m);
     for i:=1 to n do
         for j:=1 to m do
           begin
             writeln('vvedite element, d[',i,',',j,']');
             readln(d[i,j]);
           end;
     writeln;
     writeln('ischodnaya matrica:');
     for i:=1 to n do
       begin
         for j:=1 to m do
           write(d[i,j]:4);
           writeln;
       end;
      k:=0;
      pol:=1;
      for i:=1 to n do
      for j:=1 to m do
        begin
        if d[i,j]>0 then begin k:=k+1; pol:=pol*d[i,j]; sr:=pol/k; end;
        end;
        write ('k=', k, '  pol= ', pol, '  sr= ', sr:3:3);
     readkey;
end.