Переставить столбцы матрицы по росту количества отрицательных элементов в столбцах

{Помогите решить задачу. Дано двумерный массив С[m,n], 1<m,n<10,
найти суму элементов >3,2 и переставить столбцы в порядки возрастания
количества отрицательных элементов.}
 
var
  b: array [1..100,1..100] of integer;
  a: array [1..100] of integer;
  n,m,i,j,ko,sc,buf: integer;
begin
  writeln('n,m=');
  readln(n,m);
  writeln('Исходный массив');
  for j:=1 to n do
    begin
      ko:=0;
      for i:=1 to m do
        begin
          b[i,j]:=random(19)-9;
          write(b[i,j]:4);
          if b[i,j]<0 then
            begin
              inc(ko);
              a[i]:=ko;
            end;
        end;
      writeln;
    end;
  writeln('Отрицательные');
  for i:=1 to n do
    write(a[i]:4);
  sc:=0;
  while sc<=n do
    begin
      for i:=2 to n do
        if a[i]<a[i-1] then
          begin
            buf:=a[i];
            a[i]:=a[i-1];
            a[i-1]:=buf;
            for j:=1 to m do
              begin
                buf:=b[i,j];
                b[i,j]:=b[i-1,j];
                b[i-1,j]:=buf;
              end;
          end;
      inc(sc);
    end;
  writeln;
  writeln('Итоговый массив');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(b[i,j]:4);
      writeln;
    end;
  writeln('Отрицательные');
  for i:=1 to n do
    write(a[i]:4);
  readln;
end.

const
  mmax=9; nmax=9; LLIM=-9; ILIM=19; W=3;
var
  a: array [1..mmax,1..nmax] of Integer;
  c: array [1..nmax] of Integer;
  i, j, k, m, n, p, t: Integer;
begin
  repeat
    Write('Введите m [2..',mmax,'], n [2..',nmax,']: '); ReadLn(m,n);
  until (m in [2..mmax]) and (n in [2..nmax]);
  WriteLn('A=');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=LLIM+Random(ILIM); Write(a[i,j]:W);
      if a[i,j]<0 then Inc(c[j]);
    end; WriteLn;
  end; 
  for j:=1 to n-1 do begin
    p:=j;
    for k:=j+1 to n do if c[k]<c[p] then p:=k;
    if p>j then begin
      for i:=1 to m do begin
        t:=a[i,j]; a[i,j]:=a[i,p]; a[i,p]:=t;
      end;
      t:=c[j]; c[j]:=c[p]; c[p]:=t;
    end;
  end;
  WriteLn('A''=');
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:W); WriteLn;
  end; 
end.