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

[-Настюша-]

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

[volvo]

...
max_index := 0;
max_count := 0;

for i := 1 to cols do begin { <--- Cols - число столбцов }
  count := 0;
  for j := 1 to rows do { <--- Rows - число строк матрицы }
    if a[j, i] = 3 then count := count + 1;

  if count > max_count then begin
    count := max_count; max_index := i;
  end
end;

writeln('больше всего троек в столбце №', max_index, ' целых ', max_count);
...