Расставить эл. строк с четными № в порядке убываниядке

uses
  crt;
const
  n=5;
  m=5;
var
  a:array [1..n,1..m] of integer;
  i,j,k,temp:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {ñîðòèðóåì}
  for i:=1 to n do
    if i mod 2 = 0 then
      for j:=1 to m-1 do
        for k:=j+1 to m do
          if a[i,j]<a[i,k] then
          begin
            temp:=a[i,j];
            a[i,j]:=a[i,k];
            a[i,k]:=temp
          end;
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:2,' ');
    writeln
  end;
end.

uses
  crt;
const
  n=5;
  m=5;
var
  a:array [1..n,1..m] of integer;
  i,j,k,temp:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {ñîðòèðóåì}
  for i:=1 to n do
    for j:=1 to m-1 do
      for k:=j+1 to m do
        if (a[i,j]<a[i,k]) and (j mod 2 = 0) and (k mod 2 =0) then
        begin
          temp:=a[i,j];
          a[i,j]:=a[i,k];
          a[i,k]:=temp
        end;
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:2,' ');
    writeln
  end;
end.