Дан массив из 24 целых чисел .составте программу с которой напечатайте все его элементы в обратном порядке ( заранее )

Var
  A:array [1..24] of integer;
  i: byte;
begin
randomize;
for i := 1 to 24 do
begin
  A[i] := random(50);
  write(A[i],' ');
end;
writeln;
for i := 24 downto 1 do write(A[i],' ');
end.