В заданном одномерном массиве поменять местами соседние элементы. (паскаль)

var a:array[1..100] of integer;

i,n,t:integer;

begin

write(\'Введите длину массива: \');

readln(n);

writeln(\'Введите массив: \')

for i:=1 to n do readln(a[i]);while i<n-1 do

begin

i:=i+1;

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

i:=i+1;

end;

writeln(\'Готовый массив: \');

for i:=1 to n do write(a[i]:4);

end.