var I, b : Integer; begin ... for i := Low(A) To Low(A)+2 Do begin b := A[i]; A[i] := A[Length(A)-I]; A[Length(A)-I] := b; end;