С клавиатуры вводится число n. Заполнить массив с клавиатуры n значениями и вывести их в обратном порядке

var

i, n: integer;

a: array of integer;

begin

writeln ('Введите число n: ');

readln (n);

SetLength (a, n);

writeln ('Введите ', n, ' чисел: ');

for i : = 0 to n - 1 do readln (a[i]);

writeln ('Числа в обратном порядке: ');

for i : = n - 1 downto 0 do write (a[i], ' ');

end.