reading symbolic information ...
type Rec = record
    charValue : char;
    intValue : integer;
    subrange : 0..1000;
    realValue : real;
end;
var r : Rec;

execution completed
(charValue = 'c', intValue = 3, subrange = 10, realValue = 3.4) 
3.4 10 3 'c'