Перестановка рядком в матрице, меняем рядки матрицы местами Опции

[DruiD]

Характеристикой ряда целочисленной матрицы назовём сумму его отрицательных чётных элементов. Переставляя рядки заданной матрицы, расположить их соответственно к убыванию характеристик.

[DruiD]

Идею понял, но решение чёто не получается :

const n=4; m=5;
type  TVector = array[1 .. m] of Integer;
      TMatrix = array[1 .. n] of TVector;
Function F(Vec: TVector): Integer;
         var i:byte; s:integer;
         begin
         for i:=1 to m do
         if (not odd(Vec[i])) and (Vec[i]<0) then inc(s,Vec[i]);
         f:=s;
end;
Procedure Bubble(Var ar: TMatrix);
          Var  i, j: Integer;
          T: TVector;
          Begin
          For i := 1 To n Do
          For j := n DownTo i+1 Do
          If F(ar[Pred(j)]) > F(ar[j]) Then Begin
          T:= ar[Pred(j)]; ar[Pred(j)] := ar[j];
          ar[j] := T
	  End
End;
var a,c:array[1..n,1..m] of integer; b:Tmatrix; i,j:byte;
begin
for i:=1 to n do
for j:=1 to m do
begin
writeln('vvedi el ',i,' i ',j,' ');
readln (A[i,j]);
end;
for i:=1 to n do
for j:=1 to m do
B[i][j]:=A[i,j];
bubble(b);
for i:=1 to n do
for j:=1 to m do
c[i,j]:=b[i][j];
for i:=1 to n do  begin   writeln;
for j:=1 to m do
Write('  ',c[i,j]);  end;
readln
end.