Question

for i:=0 to 10 do
A[i]:=i*2;
for i:= 10 downto 0 do
begin
k:=A[10-i];
A[10-i]:=A[i];
A[i]:=k;
end.