Составьте программу ввода с клавиатуры элементы массива a [1..8] и вывода элементов в обратном порядке

Вот :)
program zadanie;
var i:integer;
begin
for i:=1 to 8 do
write (i,' ');
write (' и ');
for i:=8 downto 1 do
write (i,' ');
end.