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

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

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

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

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

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.

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

Объявление констант:
- n со значением 5
- m со значением 3
Объявление переменных:
- A как двумерный массив размером [1..n, 1..m] типа integer
- B как одномерный массив размером [1..m] типа real
- k , i , j как переменные типа longint
- p как переменная типа real
Заполнение и вывод двумерного массива A:
- Цикл от 1 до n для переменной i
  - Цикл от 1 до m для переменной j
  - Присвоение элементам массива A случайных значений в диапазоне от -n div 2 до (m - 1) с помощью функции random
  - Вывод значений элементов массива A с выравниванием в 3 символа
Вывод строки Массив произведений
Вычисление произведений и формирование массива B:
- Присвоение начального значения переменной k как 1
- Цикл от 1 до m для переменной j
  - Присвоение переменной p значения элемента A[1, j]
  - Цикл от 2 до n для переменной i
  - Умножение переменной p на значение элемента A[i, j]
  - Если p не равно 0
  - Присвоение элементу массива B с индексом k значение переменной p
  - Увеличение значения k на 1 с помощью inc
- Вывод значений элементов массива B от 1 до k - 1, разделенных пробелом
Ожидание ввода пользователя с помощью readln.