Сформировать одномерный массив, состоящий из положительных произведений ненулевых элементов матрицы

uses crt;
const
  max=50;
var
  a: array[1..max,1..max] of integer;
  b : array [1..max] of integer;
  x,y,i,j,pro: integer;
begin
  write('Введите размеры массива x, y --> ');
  readln(x,y);
  writeln('Введённая  матрица:');
  for i:=1 to x do
  begin
    for j:=1 to y do
    begin
      a[i,j]:=random(50)-20;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  for j := 1 to x do
  begin
    pro := 1;
    for i := 1 to y do
      if a[i,j] > 0 then pro:=pro*a[i,j];
    b[j] := pro;
  end;  
  writeln('Массив произведений:');
  for j := 1 to x do
    write(b[j]:5)
end.

const
  Size = 50;
var
  X : array [1..Size, 1..Size] of integer;
  P : array [1..Size] of integer;
  n, m, Row, Col : Integer;
begin
  write('Введите размеры матрицы n, m --> '); readln(n, m); // n - строк // m - столбцов
  
  /// заполнение матрицы
  Randomize;
  for Row := 1 to n do
    for Col := 1 to m do
      X[Row, Col] := Random(-20, +30);
      
  /// вывод матрицы
  WriteLn('Матрица заполнена случайными числами: X(' + n + ',' + m + ') =');
  for Row := 1 to n do
    begin
      for Col := 1 to m do
        Write(X[Row, Col]:4);
      WriteLn;
    end;
  WriteLn;
  
  /// заполнение массива
  for Col := 1 to m do
    begin
      P[Col] := 1;
      for Row := 1 to n do
        if X[Row, Col] > 0 then
          P[Col] *= X[Row, Col];
    end;
  
  /// вывод массива
  WriteLn('Массив произведений:');
  for Col := 1 to m do
    Print(P[Col]);
  WriteLn;
end.

WriteLn('Матрица заполнена случайными числами: X(' + n + ',' + m + ') =');

(' + n + ',' + m + ')

  WriteLn('(' + n + ') строк ',' ','(' + m + ') столбцов ');