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

var a:array[1..100] of integer;i,n,c:integer;beginwrite('Введите кол-во элементов: '); readln(n);writeln('Введите элементы массива: ');for i:=1 to n doread(a[i]);for i:=1 to n dobeginif i=n then write(a[i]) else beginc:=a[i];a[i]:=a[i+1];a[i+1]:=c;write(a[i],' ');end;end;end.