Создать программу: в заданном одномерном массиве переставить местами значения элементов, стоящих на четных местах со значениями элементов, стоящими на нечетных местах (т.е. 1 и 2, 3 и 4 и т.д.) 20

Const n=10;
var i,p:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
  a[i]:=Random(-10,10);
  write(a[i],' ');
  end;
writeln();
i:=1;
while(i<n) do begin
  p:=a[i];
  a[i]:=a[i+1];
  a[i+1]:=p;
  i+=2;
  end;
for i:=1 to n do
  write(a[i],' ');
end.