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

Program exemple25a ;

Type formulaire = Record 
                  nom : string[20] ;
                  age : byte ;
                  sexe : char ;
                  End ;

Var personne : formulaire ;

BEGIN
With personne Do
     Begin
          nom := 'Etiévant' ;
          age := 18 ;
          sexe := 'M' ;
     End ;
END.