Помогите сделать программу паскаль (массивы)даны нат. числа а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[]\" хранятся данные натуральные числа. Т.к. их количество заранее не известно, массив создан с избытком - на 10\'000 элементов. В переменной \"n\" храниться количество вводимых чисел. В первом цикле каждое вводимое число записывается в отдельном элементе массива. Второй цикл перебирает элементы массива от старшего к младшему, т.е. в обратном порядке и выводит их на экран через точку с запятой. Зарезервированное слово \"downto\" означает, что переменная цикла \"i\" в каждом цикле уменьшается на единицу, что и позволяет перебирать массив в обратном порядке.