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

[DruiD]

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

[DruiD]

Я создал одномерный массив записей В, в котором в 1 поле записываю значение сумм, во 2 поле- индекс строчки в двумерном массиве А. Потом сортирую значения сумм в поле массива записей . Подскажи мне как в новую двумерную матрицу записать строчки в порядке возрастания, используя поле индексов в массиве записей В.

const n=4; m=5;
type ccc=record
     z:integer;
     n:integer;
     end;
var d,s:integer; A,c:array[1..n,1..m]of integer; i,j:byte;B:array[1..n]of ccc;
bb:array[1..n]of integer;
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
begin
s:=0;
for j:=1 to m do
if (not odd(A[i,j])) and (A[i,j]<0) then inc(s,A[i,j]);
B[i].z:=s; B[i].n:=i;
end;
for i:=1 to n do
write('  ',B[i].z);
writeln;
for j:=1 to n-1 do
for i:=1 to n-1 do
if B[i].z<B[i+1].z then begin d:=b[i].z; b[i].z:=b[i+1].z; B[i+1].z:=d; end;