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

var a : array[1..10] of integer; n, z:integer; begin  readln(n);   for var i:=1 to n do    readln(a[i]);   for var i:=1 to n-1 do begin      z:=a[i];     a[i]:=a[i+1];      a[i+1]:=z;     end;     for var i:=1 to n do     writeln(a[i]); end.