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

unit munit;
 
interface
const
  nmax=20;
type
  matr=array[1..nmax,1..nmax] of integer;
 
 
procedure Nomer(a:matr;m,n:byte;var imx:byte);
 
implementation
procedure Nomer(a:matr;m,n:byte;var imx:byte);
var
  i,j,k,mx:byte;
begin
  imx:=0;mx:=0;
  for j:=1 to m do
    begin
      k:=0;
      for i:=1 to n do
      if a[i,j]<0 then
        k:=k+1;
      if k>mx then
        begin
          mx:=k;
          imx:=j;
        end;
    end;
end;
 
begin
end.

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.