Дан одномерный массив А, состоящий из N целых чисел. Составить программу, которая меняет порядок следования элементов на обратный — Pascal(Паскаль)

uses crt;

const
  N = 10;

var
  A: array [1 .. N] of integer;
  Temp, i: integer;

begin
  clrscr;
  for i := 1 to N do
    read(A[i]);
  for i := 1 to N div 2 do
  begin
    Temp := A[i];
    A[i] := A[N - i + 1];
    A[N - i + 1] := Temp;
  end;
  for i := 1 to N do
    write(A[i], ' ');

  readkey;

end.