Отсортировать элементы в чётных столбцах по возрастанию, а в нечётных по убываю

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 j := 1 to M do
    if odd(j) then
    begin
      for i := 1 to N-1 do
        for k := i + 1 to N do
          if a[i,j] < a[k,j] then
          begin
            temp := a[i,j];
            a[i,j] := a[k,j];
            a[k,j] := temp
          end
    end
    else
    begin
      for i := 1 to N-1 do
        for k := i + 1 to N do
          if a[i,j] > a[k,j] then
          begin
            temp := a[i,j];
            a[i,j] := a[k,j];
            a[k,j] := temp
          end;
    end;
  {âûâîäèì ìàòðèöó}
  WriteLn('Ïîëó÷åííàÿ ìàòðèöà:');
  for i := 1 to N do
  begin
    for j := 1 to M do
      write(a[i,j]:2, ' ');
    WriteLn
  end;
  ReadLn
end.