Двумерные массивы

[Exdns]

Это программа работает только с квадратными массивами, помогите переделать чтобы работала с любыми. Заранее спасибо.

Условие: Определить номер столбца, содержащего максимальное количество нулей.

uses crt;
var
a:array [1..100,1..100] of integer;
n,m,i,j,max,rmax,q:integer;
begin
write('n = ');
readln(n);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i][j]:=random(10)-5;	
write(a[i][j]:3); 
end;
writeln;
end;
max:=0;	
rmax:=0;
for i:=1 to n do
begin
q:=0;	
for j:=1 to n do
begin
if a[j][i]=0 then inc(q);	
end;
if q>max then	
begin
max:=q;	
rmax:=i;	
end;
end;
writeln('Max zeros in ',rmax,' column (',max,').');
readkey;
end.

[Mad_Cat]

write('n = ');
readln(n);
write('m = ');
readln(m);

{:::::}
q:=0;	
for j:=1 to m do
{//////////////}