Переставить элементы, стоящие на нечетных местах, с соответствующими элементами на четных местах.

program prim2;
  uses crt;
  var i, n, r: integer;
  a: array[1.. 10000] of integer;
begin
  clrscr;
  randomize;
  write ('число элементов ');
  readln(n);
  for i:=1 to n do
    begin
{Получаем случайные числа и выводим их на экран.}
      a[i]:=random(45)-22;
      write(a[i],' ');
    end;
{В полученном массиве меняем соседние элементы.}
  i:=1;
{Пока I<=N-1.}
  while i<=n-1 do
    begin
{Меняем значения соседних элементов. }
      r:=a[i];a[i]:=a[i+1];a[i+1]:=r;
{Увеличиваем индекс на два.}
      inc(i,2);
    end;
{Распечатываем измененный массив.}
  for i:=1 to n do
    write(a[i],' ');
  readkey;
end.

{Процедура Inc(i,n) преобразует переменную порядкового типа i к последующему значению (n=1) или на n шагов вперед.}