LP - Registro, inserindo dados dinamicamente por usuários - Pascal

Program registro;  
Type  
    reg_pessoa = record  
                       nome: string[40];  
                       idade:integer;  
                       cpf:integer;  
                 end;  
Var  
   reg:reg_pessoa;  

Begin  
     write('Digite seu nome...: ');  
     read (reg.nome);  
     write('Digite seu cpf....: ');  
     read (reg.cpf);  
     write('Digite sua idade..: ');  
     read (reg.idade);  
End.