LP - Registro, alimentando dinamicamente pelo usuário e imprimindo em tela - 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);  

     writeln('Seu nome e....: ',reg.nome);  
     writeln('Seu cpf e.....: ',reg.cpf);  
     writeln('Sua idade e...: ',reg.idade);  
End.