在Ada中，可以使用pragma Pack指令来显式地对位字段记录类型进行打包操作。pragma Pack指令可以设置记录的对齐方式，以及是否进行字节对齐。

以下是一个示例代码：

with Ada.Text_IO;
use Ada.Text_IO;

procedure Main is
   pragma Pack (Record, 1);

   type Record is record
      field1 : Integer;
      field2 : Integer;
      field3 : Integer;
   end record;
   
   r : Record;
begin
   r.field1 := 10;
   r.field2 := 20;
   r.field3 := 30;

   Put_Line("Size of Record: " & Integer'Image(Record'Size));
   
   Put_Line("Field1: " & Integer'Image(r.field1));
   Put_Line("Field2: " & Integer'Image(r.field2));
   Put_Line("Field3: " & Integer'Image(r.field3));
end Main;

在这个示例中，我们使用pragma Pack (Record, 1)来将记录类型Record的对齐方式设置为1字节。这将导致记录中的字段紧凑地存储在一起，而不进行字节对齐。最后，我们使用Integer'Image函数将字段的值转换为字符串，并使用Put_Line函数将它们打印出来。

注意：显式地对位字段记录类型进行打包操作可能会降低程序的性能，因为它可能导致内存访问不连续，从而增加了访问时间。因此，在使用pragma Pack指令时应谨慎，只在必要的情况下使用。