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

Program exemple25c ;

Type formulaire = Record
     nom : string[20] ;
     date_naissance : Record
                    jour : 1..31 ;
                    mois : 1..12 ;
                    an : 1900..2000 ;
                    End ;
     End ;

Var personne : formulaire ;
BEGIN
With personne Do
     Begin
     nom := 'Eti‚vant' ;
     With date_naissance Do
          Begin
          jour := 21 ;
          mois := 10 ;
          an := 1980 ;
          End ;
     End ;
END.