1type 2 tr = bitpacked record 3 l: longint; 4 end; 5 6begin 7 if bitsizeof(tr) <> 32 then 8 halt(1); 9end. 10