Упорядочить нечетные строки по возрастанию, четные по убыванию

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,m,i,j,tmp,q: integer;
begin
  randomize;
  write('Введите размеры массива n, m: ');
  readln(n,m);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  for i:=1 to n do
    for q:=1 to m-1 do
      for j:=q+1 to m do
      if (i mod 2=0)and(a[i,q]<a[i,j]) then 
      begin
        tmp:=a[i,q];
        a[i,q]:=a[i,j];
        a[i,j]:=tmp;
      end else
      if (i mod 2<>0)and(a[i,q]>a[i,j]) then
      begin
        tmp:=a[i,q];
        a[i,q]:=a[i,j];
        a[i,j]:=tmp;
      end;
    
  writeln('Преобразованный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.