Перестановка столбцов Опции

[Определение столбца.............]

Помогите пожалуйста
Вот такая задача
Я нашел число нулевых элементов в каждом столбце(ch[j])
И теперь мне надо найти столбец в котором больше всего нулевых элементов.?

[Serega18]

FА если у меня num будет одномерным массивом

Код

Procedure(var A:matrix,var num:odn);
var i,j:integer;
 begin
  j:=0
    for i:=1 to 5 do
     begin
       for j:=1 to 5 do
         begin
           if num[j]<min then
              min:=num[j];
           end;
       end;
 end;