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

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

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

[Serega18]

Решил собрать все подзадачи в одну и используя текстовый файлы составить задачу.Но так как с текстовыми файлами я некогда не работал ни чего не вышло.
Поставить на первое место столбец с наименьшим количеством нулевых элементов,поставив все нули в конец этого столбца.

Исходный код

Program St;
Uses crt;
Type Matrix=array[1..4,1..5] of real;
var a:Matrix;
i,j,indx:integer;
f1,f2:text;
Procedure chislo(var A:matrix);
var i,j,ch: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:=ch+1;
end;
end;
end;
Function min_nulls(var a:matrix):integer;
var i,j:integer;
min,indx,count:integer;
Begin
min:=5;
for j:=1 to 5 do
Begin
count:=0;
for i:=1 to 4 do
if A[i,j]=0 then
inc(count);
If min>count then
Begin
min:=count;
indx:=j;
end;
end;
min_nulls:=indx;
end;
Procedure resort(var A:matrix;indx:integer);
Var i:integer;
T:real;
Begin
If indx<>1 then
for i:=1 to 4 do
Begin
T:=A[i,1];
A[i,1]:=A[i,indx];
A[i,indx]:=T;
end;
end;
Procedure ST(var A:matrix;indx:integer);
Var i,j,n:integer;
Begin
n:=0;
for i:=1 to 4 do
Begin
IF A[i,indx]=0 then
Begin
A[i,indx]:=A[5-n,indx];
A[5-n,indx]:=0;
n:=n+1;
end;
end;
end;
Begin
assign(f1,'isdan.pas');
assign(f2,'vdan.pas');
reset(f1);
rewrite(f2);
Begin
for i:=1 to 4 do
Begin
For j:=1 to 5 do
read(f1,A[i,j]);
end;
writeln(f2);
end;
Begin
clrscr;
chislo(A);
min_nulls(A);
resort(A,indx);
St(A,indx);
readln;
end;
end.