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

uses crt;
const nmax=10;
var b:array[1..nmax,1..nmax+1] of integer;
    n,m,i,j,k,l:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
{вычисление количества отрицательных в строках и запись их в дополнительный столбец}
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to m do
   begin
    b[i,j]:=-10+random(21);
    if b[i,j]<0 then k:=k+1;
   end;
  b[i,m+1]:=k;
 end;
writeln('Исходный массив:');
writeln('Кл.отр':(m*4+7));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(b[i,j]:5)
  else write(b[i,j]:4);
  writeln;
 end;
{перестановка строк по убыванию количества отрицательных(по последнему столбцу)}
for i:=1 to n-1 do
for l:=i+1 to n do
if b[i,m+1]<b[l,m+1] then
for j:=1 to m+1 do
 begin
  x:=b[i,j];
  b[i,j]:=b[l,j];
  b[l,j]:=x;
 end;
writeln('Строки по убыванию количества отрицательных:');
writeln('Кл.отр':(m*4+7));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(b[i,j]:5)
  else write(b[i,j]:4);
  writeln;
 end;
readln
end.