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

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.