Матрица Опции

[-Настюша-]

Матрица заполнена случайными числами, определить номер столбца, в котором максимальное количество троек, я понимаю наверное задача простая но я туплю. Спасибо заранее за помощь!

[Sozialist]

Var
M1:array [1..100,1..100] of integer;
M2:array [1..100] of integer;
i,j,m,n,max:integer;
begin
for i:=1 to 100 do M2[i]:=0;

writeln('Filling the matrix sized m*n:');
write('m = ');
readln(m);
write('n = ');
readln(n);
for i:=1 to m do
  for j:=1 to n do
  readln(M1[i,j]);

writeln;
writeln('Our matrix:');
for i:=1 to m do
  begin
    for j:=1 to n do
     write(M1[i,j]:4);
     writeln;
  end;

for j:=1 to n do
  for i:=1 to m do
   if M1[i,j]=3 then M2[j]:=M2[j]+1;

max:=M2[1];
for i:=2 to n do
  if M2[i]>max then max:=M2[i];

Writeln('Most threes are in ');
for i:=1 to n do
  if M2[i]=max then write(i,' column');

readln
end. 

Вообще самой надо писать что-то, раз уж перешла в сильную группу, тем более.