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

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

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

[Serega18]

Появился еще один вопрос:
А что если после нахождения столбца с наименьшим количеством нулевых элементов мне надо менять элементы в столбце,а не менять местами столбцы,
например поставить все нули в конец столбца .
Мой вариант:

Код

Procedure t(var a:matrix; indx:integer);
Var i,n:integer;
Begin
n:=0
for i:=1 to 5 do
   Begin
      IF A[i,indx]=0 then
        T:=A[5-n,indx]
        A[5-n,ind]:=A[i,indx];
        A[i,indx]:=T;
        n:n+1;
   end;
end;