arr: array of integer;
...
var
  e, i, len: Integer;
begin
  len := length(arr);
  for i := 0 to trunc(len/2) - 1 do
  begin
    e := arr[i];
    arr[i] := arr[len-1-i)];
    arr[len-1-i] := e;
  end;
end;