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

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

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

[volvo]

Да что тебя так тянет на этот NUM?

Procedure resort(var a:matrix; indx: integer);
Var i, T:integer;
Begin
  if indx <> 1 then
    for i := 1 to 5 do begin
      T := a[i, 1]; a[i, 1] := a[indx, 1]; a[indx, 1] := T
    end;
end;

Вот и все...
и вызывать вот так:

begin
  ...
  resort(A, min_nulls(A)); { это вся работа }
end.

После этого только распечатать...