Нужно построить вектор B по матрице A и упорядочить его по возрастанию числа отрицательных слагаемых в сумме (упоридочение оформить подпрограммой)

uses
    crt;
var
   a:array[1..100,1..100]of integer;
   b:array[1..100] of integer;
   i,k,j,n,t:integer;
procedure upor9d;
begin
     for i:= 1 to n do
         begin
         if b[i]<0 then
           begin
           for t:= 1 to n-1 do
               for j:= 1 to t do
           if b[j]>b[j+1] then
              begin
                   k:=b[j];
                   b[j]:=b[j+1];
                   b[j+1]:=k
              end
           end
         end
end;
begin
     writeln('wvedite razmernost matrici');
     readln(n);
     writeln('wvedite matricu razmerom ',n,'x',n);
     for i:= 1 to n do
         for j:=1 to n do
             read(a[i,j]);
     {poetroenie vektora}
     for i:= 1 to n do
         for j:= 1 to n do
             b[i]:=b[i]+a[i,j];
       upor9d;
     clrscr;
     writeln('ishodna9 matrica');
     for i:= 1 to n do
         begin
         for j:= 1 to n do
             write(a[i,j],' ');
             writeln;
         end;
   writeln;
   writeln('vektor');
   for i:= 1 to n do
       write(b[i],' ');
readkey
end.

uses
    crt;
var
   a:array[1..100,1..100]of integer;
   b:array[1..100] of integer;
   i,k,j,n,t:integer;
procedure upor9d;
begin
     for i:= 1 to n do
         begin
         if b[i]<0 then
           begin
           for t:= 1 to n-1 do
               for j:= 1 to t do
           if b[j]>b[j+1] then
              begin
                   k:=b[j];
                   b[j]:=b[j+1];
                   b[j+1]:=k
              end
           end
         end
end;
begin
     writeln('wvedite razmernost matrici');
     readln(n);
     writeln('matrica ',n,'x',n);
     for i:= 1 to n do
         for j:=1 to n do
             a[i,j]:=random(15)-8;
     {poetroenie vektora}
     for i:= 1 to n do
         for j:= 1 to n do
             b[i]:=b[i]+a[i,j];
       upor9d;
     clrscr;
     writeln('ishodna9 matrica');
     for i:= 1 to n do
         begin
         for j:= 1 to n do
             write(a[i,j],' ');
             writeln;
         end;
   writeln;
   writeln('vektor');
   for i:= 1 to n do
       write(b[i],' ');
readkey
end.