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

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

Дан двумерный массив А, состоящий из N строк и M столбцов. Найти указанное значение: произведение отрицательных элементов каждого столбца; Нужен код программы.

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

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

p:=1;
for i:=1 to n do
  for j:=1 to m do
  begin
    if a[i,j]<0 then p:=p*a[i,j];
    writeln(p);
  end;

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

Переменная p инициализируется значением 1.
Запускается цикл for, который выполняется n раз, где n - это количество строк в матрице a.
Внутри цикла for также запускается другой цикл for, который выполняется m раз, где m - это количество столбцов в матрице a.
В каждой итерации внутреннего цикла проверяется условие if a[i,j]<0 then p:=p*a[i,j]. Если элемент a[i,j] отрицательный, то его произведение с текущим значением p сохраняется в переменной p.
После завершения внутреннего цикла, значение переменной p выводится на экран с помощью функции writeln().
Цикл for снаружи завершается, и программа переходит к следующей итерации.
Если внутренний цикл не выполнялся ни разу, то значение переменной p останется равным 1.
Код выводит произведение отрицательных элементов каждого столбца матрицы на экран.