Дан массив из 20 элементов, заполненный случайными числами в диапазоне от – 10 до +10. поменять местами элементы, стоящие на четных и нечетных местах и вывести массив на экран

Записываешь все числа которые стоят на четных местах в один массив b[i];
потом окрываешь цикл и переписываешь в массив a[i] со счетчиком 
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] mod 2=0 then begin inc(l);a[i]:=b[l];end;
for i:=1 to n do 
if a[i] mod 2<>0 then begin inc(s);a[i]:=b[s];end;
for i:=1 to s do
writeln(a[i]);
end.