составьте программу для ввода с клавиатуры в массив 7 целых чисел и вывода этих чисел в обратном порядке для 9 класса!) заранее большое спасибо))))

program z1;

var A:array [1..7] of integer;

      i:integer;

begin

for i:=1 to 7 do

 readln(A[i]);

for i:=7 downto 1 do

 write(A[i]:4);

end.