В матрице В[1..N,1..M] переставить строки в порядке убывания количества отрицательных чисел в строке

uses crt;
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 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);
        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);
readln;
end.