Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы - Pascal ABC

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

Помогите написать программу Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы z(3,4).

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

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

const
mx = 4;
nx = 3;
var
M:array[1..mx] of integer;
z:array[1..nx,1..mx] of integer;
i, j, k: integer;
begin
writeln('Исходный массив');
for i:=1 to nx do
    begin
    for j:=1 to mx do
        begin
        z[i,j]:=random(18) - 9;
        write(z[i,j]:3);
        end;
    writeln;
    end;
for i:=1 to mx do
    begin
    k:=0;
    for j:=1 to nx do
        if z[j,i] < 0 then
            inc(k);
    M[i]:=k;
    end;
writeln('Вектор М');
for i:=1 to mx do
    write(M[i]:2);
end.

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

В данном коде создается вектор М, который будет содержать количество отрицательных элементов каждого столбца матрицы. Для этого используется массив z, где каждый элемент представляет собой количество отрицательных элементов в соответствующем столбце. Сначала выводится исходный массив, где каждый элемент случайным образом устанавливается в отрицательное значение от -9 до 9. Затем происходит подсчет количества отрицательных элементов в каждом столбце и сохранение этих значений в векторе М. Для каждого столбца матрицы вычисляется количество отрицательных элементов, и это значение сохраняется в соответствующий элемент вектора М. В конце выводится вектор М, где каждый элемент содержит количество отрицательных элементов в соответствующем столбце.