Двумерный массив перестановка столбцов

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