Задан массив В[1.20]. Отсортировать все элементы, стоящие на нечетных местах по невозрастанию

const
  n = 20;
var
  b: array[1..n] of integer;
  i, j, tmp, x: integer;
begin
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to n do
  begin
    b[i]:=random(99);
    write(b[i]:4);
  end;
  writeln;
  
  x:=n div 2; // x - ïîëîâèíà îò n
  
  // îáû÷íûé ïóçûðåê äëÿ ÷åòíûõ ýëåìåíòîâ
  for i:=2 to x do
    for j:=x downto i do
      if b[j*2] > b[(j-1)*2] then
      begin
        tmp:=b[j*2];
        b[j*2]:=b[(j-1)*2];
        b[(j-1)*2]:=tmp;
      end;
  writeln('Ïðåîáðàçîâàííûé ìàññèâ:');
  for i:=1 to n do write(b[i]:4);
  readln;
end.

const
  n = 20;
var
  b: array[1..n] of integer;
  i, j, tmp, x: integer;
begin
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to n do
  begin
    b[i]:=random(99);
    write(b[i]:4);
  end;
  writeln;
  
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if (b[i]>b[j]) and (b[i] mod 2=0) and (b[j] mod 2=0) then
      begin
        tmp := b[i];
        b[i] := b[j];
        b[j] := tmp;
      end;
  writeln('Ïðåîáðàçîâàííûé ìàññèâ:');
  for i:=1 to n do write(b[i]:4);
  readln;
end.

  // обычный пузырек элементов, стоящих на нечетных местах
  for i:=2 to x do
    for j:=x downto i do
      if b[j*2-1] > b[(j-1)*2-1] then
      begin
        tmp:=b[j*2-1];
        b[j*2-1]:=b[(j-1)*2-1];
        b[(j-1)*2-1]:=tmp;
      end;