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

если я правильно понял

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.