Определить среднее геометрическое положительных элементов 2ой строки матрицы

const
  k=4;
  m=5;
var
  b:array [1..k,1..m] of integer;
  i,j:integer;
  geom,p:real;
begin
  randomize;
  p:=1;
  writeln('Исходная матрица: ');
  for i:=1 to k do
    for j:=1 to m do
      readln(b[i,j]);
  for i:=1 to k do
    begin
      for j:=1 to m do
        write(b[i,j]:3);
      writeln;
    end;
 
  for j:=1 to m do
    p:=p*b[2,j];
  geom:=exp(ln(p)*(1/m));
  writeln('Среднее геометрическое = ',geom:8:2);
  readln;
end.

 for j:=1 to m do
    if b[2,j]>0 then 
      p:=p*b[2,j];

var i, j: byte;
    s: real;
    c: array [1..4, 1..5] of integer = (( 1, -2,  2,  1,  4),
                                        ( 3, -2,  3, -1,  3),
                                        (-4,  1,  5,  2,  1),
                                        ( 0, -3,  4, -2,  5));
begin
  writeln('Source array:');
  for i := 1 to 4 do
    begin
      for j := 1 to 5 do write(c[i, j]:3);
      writeln
    end;
  s := 1;
  i := 0;
  for j := 1 to 5 do if c[2, j] > 0
    then begin
      s := s * c[2, j];
      inc(i)
    end;
  if i > 0
    then writeln('Average geometrical of positive elements of 2nd row = ', exp(ln(s) / i):0:10)
    else writeln('Positive elements of 2nd row not found.');
  readln
end.

const c: array [1..4, 1..5] of integer = (( 1, -2,  2,  1,  4),
                                          ( 3, -2,  3, -1,  3),
                                          (-4,  1,  5,  2,  1),
                                          ( 0, -3,  4, -2,  5));
var i, j: byte;
    s: real;