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

[kiryavolk]

Матрица A[M,N].
Расположить столбцы в порядке возрастания количества положительных элементов.

[newerow1989]

const m=10;
      n=8;
var i,j,k,c,z,j0:integer;
    a:array[1..m,1..n] of integer;
    count:array[1..n] of integer;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         a[i,j]:=-10+Random(21);
         Write(a[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to n do
   begin
      count[j]:=0;
      For i:=1 to m do
         If a[i,j]>0 then
            Inc(count[j]);
   end;
   j0:=1;
   For c:=0 to m do
      For j:=j0 to n do
         If count[j]=c then
         begin
            For i:=1 to m do
            begin
               z:=a[i,j];
               For k:=j downto j0+1 do
                  a[i,k]:=a[i,k-1];
               a[i,j0]:=z;
            end;
            Inc(j0);
         end;
   For i:=1 to m do
   begin
      For j:=1 to n do
         Write(a[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.