Помогите сделать программку паскаль (массивы)даны нат. числа а1,а2,а3..аn. напечатать их в

var a: array[1..10000] of integer; n: integer; i: integer; begin write( Введите количество чисел в массиве = ); readln( n ); for i:=1 to n do begin write( Введите число а, i, = ); readln( a[i] ); end; for i:=n downto 1 do begin write( a[i], ; ); end; end. В массиве "a[]" хранятся данные естественные числа. Т.к. их количество заблаговременно не известно, массив создан с излишком - на 10000 частей. В переменной "n" храниться количество вводимых чисел. В первом цикле каждое вводимое число записывается в отдельном элементе массива. 2-ой цикл перебирает элементы массива от старшего к младшему, т.е. в оборотном порядке и выводит их на экран через точку с запятой. Зарезервированное слово "downto" значит, что переменная цикла "i" в каждом цикле уменьшается на единицу, что и дозволяет перебирать массив в оборотном порядке.