1program recordtest (input, output); 2type 3 Rec = record 4 charValue : char; 5 intValue : integer; 6 subrange : 0..1000; 7 realValue : real; 8 end; 9var 10 r : Rec; 11begin 12 r.charValue := 'c'; 13 r.intValue := 3; 14 r.subrange := 10; 15 r.realValue := 3.4; 16end. 17