Расположить элементы строк матрицы в порядке возрастания элементов, если номера строк четные, и в порядке убывания элементов, если номера строк

Program VR;
   const n=5;
         m=7;
var
Arr:array[1..n,1..m] of integer;
a,b,c,i,j:integer;
Begin                                    //формируем массив
for i:=1 to n do  begin
for j:=1 to m do begin
Arr[i,j]:=Random(31)-10;
end;
end;
for i:=1 to n do  begin              //выводим начальный массив
for j:=1 to m do begin
begin
Write('a[',i,',',j,']=',Arr[i,j],' ');
end;
end;
Writeln();
end;
writeln();
 
for i:=1 to n do  begin
if (i mod 2=0)  then            //проверяем на четность строку
begin
For b:=1 to m-1 do          //если четное, то сортируем пузырьком по возрастанию
For j:=1 to m-b do
   if (Arr[i,j]>Arr[i,j+1]) then begin
   c:=Arr[i,j];
   Arr[i,j]:=Arr[i,j+1];
   Arr[i,j+1]:=c;
   end;
end
else                            //иначе если нечетные, то сортируем по убыванию
For b:=1 to m-1 do
For j:=1 to m-b do
   if (Arr[i,j]<Arr[i,j+1]) then begin
   c:=Arr[i,j];
   Arr[i,j]:=Arr[i,j+1];
   Arr[i,j+1]:=c;
   end;
 end;
 for i:=1 to n do  begin                //выводим строку
for j:=1 to m do begin
begin
Write('a[',i,',',j,']=',Arr[i,j],' ');
end;
end;
Writeln();
end;
end.

const
  n = 5;
  m = 7;
var
  Arr: array[1..n, 1..m] of integer;
  b, c, i, j: integer;
begin
  writeln('исходная матрица:');
  for i := 1 to n do  
    for j := 1 to m do 
      Arr[i, j] := Random(100);
  for i := 1 to n do  
  begin
    for j := 1 to m do 
      Write(Arr[i, j]:4);
    Writeln;
  end;
  writeln('Полученная матрица');
  for i := 1 to n do  
  begin
    if (i mod 2 = 0)  then           
    begin
      for b := 1 to m - 1 do          
        for j := 1 to m - b do
          if (Arr[i, j] > Arr[i, j + 1]) then 
          begin
            c := Arr[i, j];
            Arr[i, j] := Arr[i, j + 1];
            Arr[i, j + 1] := c;
          end;
    end
    else                            
      for b := 1 to m - 1 do
        for j := 1 to m - b do
          if (Arr[i, j] < Arr[i, j + 1]) then 
          begin
            c := Arr[i, j];
            Arr[i, j] := Arr[i, j + 1];
            Arr[i, j + 1] := c;
            end;
  end;
  for i := 1 to n do  
  begin
    for j := 1 to m do 
      Write(Arr[i, j]:4);
  writeln;
  end;
end.