Переставляя строки заданной матрицы, расположить их в соответствии с убыванием характеристик

uses crt;
const nmax=10;
type mtr=array[1..nmax,1..nmax] of integer;
function zero(a:mtr;n,m:byte):byte;
var i,j,j1:byte;
begin
j1:=0;
j:=1;
while(j<=m)and(j1=0) do
 begin
  i:=1;
  while(i<=n)and(j1=0) do
  if a[i,j]=0 then j1:=j
  else i:=i+1;
  if j1=0 then j:=j+1
 end;
zero:=j1
end;
procedure sort(var a:mtr;n,m:byte);
var i,j,l:byte;
    x:integer;
begin
{перестановка строк по убыванию характеристик(по последнему столбцу)}
for i:=1 to n-1 do
for l:=i+1 to n do
if a[i,m+1]<a[l,m+1] then
for j:=1 to m+1 do
 begin
  x:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=x;
 end;
end;
var a:mtr;
    n,m,i,j:byte;
    sm:integer;
begin
randomize;
write('Количество строк n=');
read(n);
write('Количество столбцов m=');
read(m);
{вычисление сумм в строках и запись их в дополнительный столбец}
for i:=1 to n do
 begin
  sm:=0;
  for j:=1 to m do
   begin
    a[i,j]:=-8+random(17);
    if (a[i,j]<0)and(a[i,j] mod 2=0)then sm:=sm+a[i,j];
   end;
  a[i,m+1]:=sm;
 end;
writeln('Исходный массив:');
writeln('Сумма':(m*5+8));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(a[i,j]:8)
  else write(a[i,j]:5);
  writeln;
 end;
if zero(a,n,m)=0 then writeln('Нет столбца с 0')
else writeln('Номер первого столбца с 0=',zero(a,n,m));
sort(a,n,m);
writeln('Строки по убыванию сумм отрицательных четных:');
writeln('Сумма':(m*5+8));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(a[i,j]:8)
  else write(a[i,j]:5);
  writeln;
 end;
end.