помогите инфу сделать!!!

program nomer3;
uses crt;
const n=12;
var a:array [1..n] of integer;
i,c:integer;
begin
for i:=1 to n do
begin
a:=random(12);
write(a,' ');
end;
c:=0;
for i:=1 to n do
begin
c:=a;
a:=a[i+2];
a[i+2]:=c;
c:=a[i+1];
a:=a[i+3];
a[i+3]:=c;

i:=i+1;
end;
write;
for i:=1 to n do write(a,' ');
end.

надо в массиве поменять 1и3 число и т 2 и 4 и т. д