(Under construction.)
type LongBool = Boolean (BitSizeOf (LongInt));
program LongBoolDemo; var a: LongBool; begin LongInt (a) := 1; if a then WriteLn ('Ord (True) = 1') end.