Составить программу которая выводит массив, где элементы с чётными индексами поменяются местами с нечётными индексами.

Program tet; const n=6;
var i,k:byte;a:array[1..n] of byte;
beginwriteln('заполните таблицу ');
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:3);
i:=1;
while i<n do begin k:=a[i]; a[i]:=a[i+1]; a[i+1]:=k; i:=i+2; end;
for i:=1 to n do write(a[i]:3);
end.