1*bb1ea1e8Sbosticmodule main; 2*bb1ea1e8Sbostictype 3*bb1ea1e8Sbostic Rec = record 4*bb1ea1e8Sbostic charValue : char; 5*bb1ea1e8Sbostic intValue : integer; 6*bb1ea1e8Sbostic subrange : [0..1000]; 7*bb1ea1e8Sbostic realValue : real; 8*bb1ea1e8Sbostic end; 9*bb1ea1e8Sbosticvar 10*bb1ea1e8Sbostic r : Rec; 11*bb1ea1e8Sbosticbegin 12*bb1ea1e8Sbostic r.charValue := 'c'; 13*bb1ea1e8Sbostic r.intValue := 3; 14*bb1ea1e8Sbostic r.subrange := 10; 15*bb1ea1e8Sbostic r.realValue := 3.4; 16*bb1ea1e8Sbosticend main. 17