Написать модуль, который выводит номер столбца в котором наибольшее количество отрицательных элементов - Pascal

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

написать модуль который выводит номер столбца в котором наибольшее количество отриц элементов

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

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

uses
  crt,munit;
var
  im,n,m:byte;
 
procedure Vvod(var a:matr;c:char);
var
  i,j:byte;
begin
  writeln('Матрица ',c);
  for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(20)-9;
        write(a[i,j]:4);
      end;
    writeln;
  end;
  writeln;
end;
 
var
  x,y,z:matr;
begin
  clrscr;
  randomize;
  repeat
    write('Количество строк до ',nmax,' n=');
    readln(n);
  until n in [1..nmax];
  repeat
    write('Количество столбцов до ',nmax,' m=');
    readln(m);
  until m in [1..nmax];
  Vvod(x,'X');
  Nomer(x,n,m,im);
  if im=0 then
    writeln('В матрице X нет отрицательных элементов!')
  else
    writeln('Больше всего отрицательных элементов в столбце ',im);
  readln;
end.

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

Объявлены переменные: im,n,m - типа byte.
Определена процедура ввода матрицы с названием Vvod, в которой используются переменные i, j, a.
Введен блок с названием Nomer, в котором используются переменные x, y, z, n, m, im.
В основной программе введен блок с названием repeat для ввода количества строк и столбцов матрицы.
Вызван процедурный оператор Vvod с аргументами x, 'X'.
Вызван процедурный оператор Nomer с аргументами x, n, m, im.
Выводится сообщение, если в матрице X нет отрицательных элементов.
Выводится сообщение с номером столбца, в котором больше всего отрицательных элементов.
Программа завершается оператором readln.