Составить программу,в которой меняются местами каждый элемент с нечетным индексом и следующий за ним элемент с четным индексом,входящие в одномерный массив чисел — Pascal(Паскаль)

uses crt;
var a:array[1..10] of integer;
i,x,n:integer;
begin
clrscr;randomize;
write('BBEduTE PA3MEPHOCTb ');read(n);
for i:=1 to n do begin a[i]:=random(10);write(a[i]:2);end;writeln;
 
Begin
for i:=1 to n do begin if odd(i)=false then begin
 x:=a[i];a[i]:=a[i-1];a[i-1]:=x;end;end;
for i:=1 to n do begin write(a[i]:2);end;end;
readkey;
end.