29
procedure Copy (A : Array_Type) is
V : Vector;
begin
V.Reserve_Capacity (Capacity => A'Length);
for I in A'Range loop
V.Append (New_Item => A (I));
end loop;
...
end Copy;