1module main; 2type 3 ElementType = (CHAR, INT, REAL); 4 VR = record 5 case tag : ElementType of 6 CHAR: 7 charValue : char;| 8 INT: 9 intValue : integer;| 10 REAL: 11 realValue : real; 12 end; 13 end; 14var 15 vr : VR; 16begin 17 vr.tag := CHAR; 18 vr.charValue := 'c'; 19 vr.tag := INT; 20 vr.intValue := 3; 21 vr.tag := REAL; 22 vr.realValue := 3.4; 23end main. 24