1*44179Sbosticprogram recordtest (input, output); 2*44179Sbostictype 3*44179Sbostic Rec = record 4*44179Sbostic charValue : char; 5*44179Sbostic intValue : integer; 6*44179Sbostic subrange : 0..1000; 7*44179Sbostic realValue : real; 8*44179Sbostic end; 9*44179Sbosticvar 10*44179Sbostic r : Rec; 11*44179Sbosticbegin 12*44179Sbostic r.charValue := 'c'; 13*44179Sbostic r.intValue := 3; 14*44179Sbostic r.subrange := 10; 15*44179Sbostic r.realValue := 3.4; 16*44179Sbosticend. 17