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

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

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

[Serega18]

Присваиваю ch тип odn(одномерный массив),А-matrix
проц-задаю матрицу А и одномерный массив ch затем беру начальное число нул элементов,тоесть ноль(ch:=0),дальше условие(если элемент матрицы равен нулю,то число нул элементов увеличивается на один).

Код

Program St;
Uses crt;
Type Matrix=array[1..4,1..5] of real;
Odn=array[1..5] of real;
var a:Matrix;
    ch:odn;
i,j,indx:integer;
f1,f2:text;
Procedure chislo(var A:matrix;ch:odn);
var i,j,:integer;
Begin
ch:=0;
For i:=1 to 4 do
 Begin
  For j:=1 to 5 do
   Begin
    IF A[i,j]=0 Then
     ch[j]:=ch[j]+1;
   end;
 end;