Отсортировать элементы четных строк матрицы по возрастанию, а нечетных - по уменьшению значения

var
  a: array[1..1000, 1..1000] of longint;
  n, m, i, j, jj, t: longint;
  
begin
  readln(n, m);
  for i := 1 to n do
    for j := 1 to m do read(a[i, j]);
  for i := 1 to n do
    begin
      if i mod 2 <> 0
        then Begin
               for j := 1 to m do
                 for jj := j + 1 to m do
                   if a[i, j] > a[i, jj]
                     then begin
                            t := a[i,j];
                            a[i, j] := a[i, jj];
                            a[i, jj] := t
                          end
             End
        else Begin
               for j := 1 to m do
                 for jj := j + 1 to m do
                   if a[i, j] < a[i, jj]
                     then begin
                            t := a[i, j];
                            a[i, j] := a[i, jj];
                            a[i, jj] := t
                          end
             End
    end;
  for i := 1 to n do
    begin
      for j := 1 to m do write(a[i, j],' ');
      writeln
    end
end.

// ...
  readln(n, m);
  for i := 1 to n do
    for j := 1 to m do a[i, j] := random(200); // read(a[i, j]);
  for i := 1 to n do
  begin
    for j := 1 to m do
      for jj := j + 1 to m do
        if (a[i, j] > a[i, jj]) = not odd(i) 
          // или 
          // if (a[i, j] > a[i, jj]) = (i mod 2 = 0)
        then begin
          t := a[i, j];
          a[i, j] := a[i, jj];
          a[i, jj] := t
        end
  end;
  for i := 1 to n do
  begin
    for j := 1 to m do write(a[i, j], ' ');
    writeln
  end;