Выполнить сортировку элементов массива, стоящих на чётных номерах, по убыванию методом пузырька

const n=10;
var  a:array[1..n] of integer;
     i,j,x: integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
writeln;
i:=2;
while i<=n-2 do
 begin
  j:=2;
  while j<=n-2 do
   begin
    if a[j]<a[j+2] then
     begin
      x:=a[j];
      a[j]:=a[j+2];
      a[j+2]:=x;
     end;
    j:=j+2;
   end;
  i:=i+2;
 end;
writeln('Сортировка элементов с четными номерами по убыванию');
for i:=1 to n do
write(a[i]:3)
end.

const
  m = 10;
 
var
  arr: array[1..m] of integer;
  i, j, k: integer;
 
begin
  randomize; 
  write('Исходный массив: ');
  for i := 1 to m do 
  begin
    arr[i] := random(256);
    write(arr[i],' ');
  end;
  writeln; 
  for i := 1 to m - 2 do
    for j := 1 to m - i do
      if j mod 2 = 0 then
        if arr[j] < arr[j + 2] then begin
          k := arr[j];
          arr[j] := arr[j + 2];
          arr[j + 2] := k
        end;
  write('Отсортированный массив: ');
  for i := 1 to m do
    write(arr[i],' ');
end.