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

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

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

[VDmV]

В Турбо-Паскале твой фрагмент кода не откомпилируется. Внимательнее с этим... Это первое.

Я понял. Возможно и не откомпилируется, но я хотел высказать хотябы идею.
А количество нулей найти ещё проще:

Код

type
 mass= b:array[1..5] of integer;
procedure Chislo(var a:matrix; var b:mass);
var
i,j:integer;
begin
 for i:=1 to 5 do
 begin
   b[i]:=0;
   for j:=1 to 4 do
   if a[j,i]=0 then b[i]:=b[i]+1;
 end;
end;

Это должно откомпилироваться Давно на чистом паскале не программировал, всё приходиться на делфи.