1*44129Sbosticmodule main; 2*44129Sbostictype 3*44129Sbostic Rec = record 4*44129Sbostic charValue : char; 5*44129Sbostic intValue : integer; 6*44129Sbostic subrange : [0..1000]; 7*44129Sbostic realValue : real; 8*44129Sbostic end; 9*44129Sbosticvar 10*44129Sbostic r : Rec; 11*44129Sbosticbegin 12*44129Sbostic r.charValue := 'c'; 13*44129Sbostic r.intValue := 3; 14*44129Sbostic r.subrange := 10; 15*44129Sbostic r.realValue := 3.4; 16*44129Sbosticend main. 17