Программа изменения порядка следования  элементов заданного массива X на обратный, т.е. инвертирование массива — Pascal(Паскаль)

Program pr31 (Input, Output); 
Var 
X : Array [1..100] Of Integer;
N : Integer;
Y : Integer;
i : Integer;
 
Begin
 
WriteLn ('PASCAL: Изменение порядка следования элементов на обратный.'); 
Write ('Введите размерность массива:');
ReadLn (N); 
 
WriteLn ('Введите элементы массива:'); 
For i := 1 To N Do
Begin
Write ('X[', i, '] = '); 
ReadLn (X[i]); 
End;
 
For i := 1 To (N div 2) Do
Begin
Y := X [i]; 
X [i] := X [N - i + 1]; 
X [N - i + 1] := Y; 
End;
 
WriteLn ('Полученный массив:'); 
For i := 1 To N Do
Begin
Write (X[i]); 
Write (' '); 
End;
 
ReadLn;
End.