Ребяяят дам 55 балов!!!!в общем дан массив а :var a,b,c,d:array[1..10] of

Ребяяят дам 55 балов!!!!
в общем дан массив а :var a,b,c,d:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
readln (a[i]);
a[i]:=random(100);
end;
for i:=1 to 10 do begin
write (a[i]:4);
end;
и мне надобно заполнить массив d элементами массива а НО В ОБРАТНОМ ПОРЯДКЕ как это сделать!!!!!!