Матрица

[LKf]

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

[alex_fcsm]

Program mass;
uses crt;
const n=6;
type TM=record
       mult,ind:integer;
       end;
var A,X:array[1..n,1..n] of integer;
    b:array[1..n] of real;
    P:array[1..n] of TM;
    i,S,j:integer;
    c:TM;
begin
clrscr;
randomize;
for i:=1 to n do
begin
  begin
  for j:=1 to n do begin
   a[i,j]:=random(2);
   write(a[i,j]:2);
    end;
 writeln;
end;
end;
writeln;
for j:=1 to n do begin
  P[j].mult:=0;
  p[j].ind:=j;
for i:=1 to n do
  if a[i,j]=0 then inc(p[j].mult)
end;

 for i:=2 to n do
    for j:=n downto i do
      if p[j-1].mult>p[j].mult then
        begin
          c:=p[j-1];
          p[j-1]:=p[j];
          p[j]:=c;
        end;
writeln;
for i:=1 to n do
 for j:=1 to n do
   x[j,i]:=a[j,p[i].ind];
a:=x;
for i:=1 to n do
 begin
 writeln;
  for j:=1 to n do
  write(a[i,j]:2,' ');
 end;
writeln;
end.

[LKf]

Большое спасибо!