Отсортировать те строки двумерного массива, где все элементы отрицательные

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of integer;
    e,i,j,k,n,m,buf,s: integer;
begin
writeln('n,m=');
readln(n,m);
writeln('Dan matriza');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(51)-40;
        write(a[i,j]:5);
        end;
    writeln;
    end;
for i:=1 to n do
    begin
    k:=0;
    for j:=1 to m do
        if a[i,j]<0 then inc(k);
    if k=m then
       begin
       e:=0;
       while e<m do
             begin
             for j:=1 to m-1 do
                 if a[i,j]<a[i,j+1] then
                    begin
                    buf:=a[i,j];
                    a[i,j]:=a[i,j+1];
                    a[i,j+1]:=buf;
                    inc(s);
                    end;
             inc(e);
             end;
       end;
    end;
if s=0 then writeln ('Net strok, gde vse elementy otrizatelnye') else
begin
writeln('Sorted matriza');
for i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:5);
    writeln;
    end;
end;
end.

const 
  nmax=50;
type
  Tmatrix=array[1..nmax,1..nmax] of integer;
var
  a:Tmatrix;
  i,j,g,m,n,buf:integer;
begin
  repeat
    write('Kolichestvo strok v matritse, ne bolee ',nmax,':');
    readln(n);
    write('Kolichestvo stolbtsov v matritse, ne bolee ',nmax,':');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  randomize;
  writeln('Ishodnaya matritsa:');
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=-99+random(120);
        write(a[i,j]:4);
        if j=m then
          writeln;
      end;
  writeln;
  for i:=1 to n do
    begin
      j:=1;
      while (j<=m) and (a[i,j]<0) do
        inc(j);
      if j>m then
        begin
          for g:=1 to m-1 do
            for j:=g+1 to m do
              if a[i,g]>a[i,j] then
                begin
                  buf:=a[i,g];
                  a[i,g]:=a[i,j];
                  a[i,j]:=buf;
                end;
        end;
    end;
  writeln('Poluchennaya matritsa:');
  for i:=1 to n do
    for j:=1 to m do
      begin
        write(a[i,j]:4);
        if j=m then
          writeln;
      end;
end.