1program varnt(input, output); 2type 3 vrec = record 4 rfield : integer; 5 case integer of 6 1: ( 7 vfield : integer; 8 ); 9 2: ( 10 vfield2 : real; 11 ); 12 end; 13 14var 15 r : vrec; 16begin 17 r.vfield := 1; 18 r.vfield2 := 2.5; 19 r.rfield := 0; 20 writeln('done'); 21end. 22