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

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

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

[Serega18]

Значит при перестоновке поставить indx

Код

Procedure resort(var a:matrix;var num:integer);
Var i,j:integer;
Begin
 for i:=1 to 5 do
  Begin
    For j:=1 to 5 do
     Begin
       IF num[1]>num[j]
         A[i,1]:=A[i,indx];
         A[i,indx]:=A[1,1];
    end;
 end;
end;