Question

Помогите с массивом
for i:=1 to 5 do
A[i]:=2*i;
for i:=1 to 5 do begin
k:=2*A[i]+3;
A[5-i+1]:=k;
end;