以下是一个示例程序，以说明如何在Ada中将项添加到数组中：

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Array_Add_Item is
   type Int_Array is array (1..5) of Integer;
   My_Array : Int_Array := (1, 2, 3, 4, 5);
   Item_To_Add : Integer;

begin
   Put("Enter item to add: ");
   Get(Item_To_Add);

   for I in My_Array'Range loop
      if My_Array(I) = 0 then
         My_Array(I) := Item_To_Add;
         exit;
      end if;
   end loop;

   for I in My_Array'Range loop
      Put(My_Array(I));
      Put(" ");
   end loop;

end Array_Add_Item;

在此示例中，我们使用了一个名为Int_Array的类型，该类型是一个包含5个整数的数组。我们初始化数组为1、2、3、4和5。接下来，我们提示用户输入要添加的项，并将其存储在Item_To_Add变量中。

接下来，我们遍历数组的范围，以查找一个值为零的数组元素。当我们找到一个空元素时，我们将Item_To_Add值存储在该位置，并使用exit终止循环。

最后，我们遍历数组的范围，并打印所有元素的值。

此程序演示了如何向Ada中的现有数组添加项。