712_____________________________________________ 12

bool       Sex;

AnsiString Dep;

};

  struct   . 
TPers   (, -) .   
     .     
  TPers. ,       
  .         -
 ,         -
   .     -
   .

 TPers   . ,  
       .  
:  Fam, Nam, Par  Dep  ,   -
, ,     ,    . -
 Year     ,  Sex    -
  .      ,    
   . ,   TPers   
    TPers. ,    
    TPers. ,  ,  -
      ,    -
.        (. -
 12.11.2).

         
;      ,    
 .     ,  -
  . 

TPers Pers, PersArray[10], *Ppers;

  Pers  TPers,  PersArray   10  
TPers   Ppers    TPers.

       
     .    
  :

struct (

AnsiString Fam,Nam,Par;

unsigned   Year;

bool       Sex;

AnsiString Dep;

}Pers, PersArray[10], *Ppers;

         -
:   (.)    (>).     -
         . :

Pers.Fam = "";

Pers.Nam = "";

Pers.Par = "";

Pers.Year = 1960;

Pers.Sex = true;

Pers.Dep = "";

        
 . ,   

Ppers = &Pers;