Поменять местами соседние элементы массива (1 и 2, 2 и 3, 3 и 4, и т. д.) - pascal abc

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

i, n, c:integer;

begin

write ('Введите кол-во элементов: ') ;

readln (n) ;

writeln ('Введите элементы массива: ') ;

for i:=1 to n do

read (a[i]) ;

for i:=1 to n do

begin

if i=n then write (a[i]) else

begin

c:=a[i];

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

a[i+1]:=c;

write (a[i],' ') ;

end;

end;

end.