Вычислить вектор, элементами которого являются произведения положительных элементов столбцов матрицы - Turbo Pascal

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

6. Дана целочисленная матрица A(N,M). Вычислить вектор В(M), элементами которого являются произведения положительных элементов столбцов матрицы.

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

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

const m=3; n=4;
function Pr(a:array[1..n,1..m] of integer; j:integer):integer;
var i,p:integer;
begin
     p:=1;
     for i:=1 to n do
         if a[i,j]>0 then p:=p*a[i,j];
     pr:=p;
end;
var a:array[1..n,1..m] of integer;
    i,j:integer;
    b:array[1..m] of integer;
begin
     for i:=1 to n do
         for j:=1 to m do
         begin
              writeln('Введите a[',i,j,']');
              read(a[i,j]);
         end;
     for j:=1 to m do
         b[j]:=pr(a,j);
 
     writeln('Вектор B:');
     for i:=1 to m do
         write(b[i]:4);
readln;
end.

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

В начале кода объявляются переменные m и n, которые представляют собой количество строк и столбцов в матрице соответственно.
Затем определяется функция Pr, которая принимает матрицу a и индекс j в качестве параметров. Функция итерируется по строкам матрицы и умножает текущий элемент a[i,j] на значение переменной p. Значение переменной p в итоге будет равно произведению всех положительных элементов столбца.
После определения функции Pr, объявляется переменная a, которая представляет собой матрицу размером n на m.
Далее идет цикл for, который итерируется по строкам матрицы. Внутри цикла считывается значение a[i,j] с помощью функции read.
После завершения внутреннего цикла for, начинается второй цикл for, который итерируется по столбцам матрицы. Внутри цикла вычисляется значение b[j] с помощью функции Pr. Значение переменной b[j] будет равно произведению всех положительных элементов столбца.
По завершению второго цикла for выводится сообщение с вектором B.
Код завершается вызовом функции readln для чтения символа новой строки.