Составьте программу ввода с клавиатуры элементов массива a[1..8] и вывода элементов массива в обратном порядке(пример ввода: 1 2 3 4 5 6 7 8 пример вывода 8 7 5 4 3 2 1

Var a: array [1..8] of integer;
    i: integer;
begin
     for i := 1 to 8 do
         readln(a[i]);
     for  i := 8 downto 1 do
          writeln(a[i]);
end.

Вот так)