要解决“Ada扩展聚合初始化”的问题，可以使用Ada中的扩展聚合初始化语法。下面是一个示例代码：

with Ada.Text_IO;

procedure Ada_Extension_Aggregate_Initialization is
   type My_Record is record
      Field1 : Integer;
      Field2 : Float;
      Field3 : String(1..10);
   end record;

   -- 使用扩展聚合初始化
   Example : My_Record := (Field1 => 42, Field2 => 3.14, Field3 => "Hello");

begin
   Ada.Text_IO.Put_Line("Field1: " & Integer'Image(Example.Field1));
   Ada.Text_IO.Put_Line("Field2: " & Float'Image(Example.Field2));
   Ada.Text_IO.Put_Line("Field3: " & Example.Field3);
end Ada_Extension_Aggregate_Initialization;

上述代码定义了一个名为My_Record的记录类型，该类型具有三个字段：Field1，Field2和Field3。然后，在主程序中使用扩展聚合初始化语法将字段的值分配给记录变量Example。最后，通过Ada.Text_IO.Put_Line打印出各个字段的值。

输出结果为：

Field1: 42
Field2: 3.140000
Field3: Hello

这样就完成了Ada中扩展聚合初始化的示例代码。