{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

Program exemple30b;

Type toto=Record
     Case i:integer Of
          1:();
          2:(a:real);
          3:(x,y,z:string);
     End;

Var x:toto;
BEGIN
x.i:=2;
x.a:=2.23;
WriteLn(x.a);
x.i:=3;
x.x:='Castor';
WriteLn(x.x);
END.