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;