дан массив из 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.