Создать одномерный массив из ненулевых произведений элементов каждого столбца

const
    EPS = 0.0001;
var
    a: Array[Byte, Byte] Of Real;
    b: Array[Byte] Of Double;
    i, j, n, m: Byte;
begin
    repeat
        Write('Input n=');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('Input m=');
        ReadLn(m);
    until (m > 0);
    for j := 0 to m - 1 do
        b[j] := 1;
    Randomize();
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            a[i, j] := Random * 198 - 99;
            Write(a[i, j]:7:2);
            if (Abs(a[i, j]) >= EPS)
            then
                b[j] := b[j] * a[i, j];
        end;
        WriteLn;
    end;
    Write('B:');
    for j := 0 to m - 1 do
        Write(' ', b[j]:0:2);
end.

const
  n = 5;
  m = 3;
 
var
  A: array[1..n, 1..m] of integer;
  B: array[1..m] of real;
  k, i, j: longint;
  p: real;
 
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      A[i, j] := -n div 2 + random(m);
      write(A[i, j]:3);
    end;
    writeln;
  end;
  writeln('Массив произведений');
  k := 1;
  for j := 1 to m do
  begin
    p := A[1, j];
    for i := 2 to n do
      p := p * A[i, j];
    if p <> 0 then
    begin
      b[k] := p;
      inc(k);
    end;
  end;
  for i := 1 to k - 1 do
    write(b[i], ' ');
  readln;
end.