Составить программу для ввода с клавиатуры в массив 12 целых чисел в столбец и вывода чисел в строку в обратном порядке через точку с запятой

Var a:array[1..12] of integer;
i:integer;
begin
 for i:=1 to 12 do
   read(a[i]);
 for i:=12 downto 1 do
   write(a[i],'; ');
end.