В данном массиве поменяйте местами элементы, стоящие на нечётных местах, с элементами, стоящими на чётных местах

var
  a: array[1..100] of integer;
  n,i,t: integer;
begin
  write('Ââåäèòå ðàçìåð ìàññèâà n: ');
  readln(n);
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    write(a[i]:4);
  end;
  writeln;
  for i:=1 to n div 2 do
  begin
    t:=a[i*2];
    a[i*2]:=a[i*2-1];
    a[i*2-1]:=t;
  end;
  writeln('Ïðåîáðàçîâàííûé ìàññèâ:');
  for i:=1 to n do write(a[i]:4);
  readln;
end.