Program Datos;
Uses Crt;
Type
Persona : Record
Nombre : String[30];
Edad : Integer;
Sexo : Char; 
Direccion : String[50]; 
Telefono : string[12]; 
End;

Var
P: Persona;
Begin
Clrscr;
{carga del registro}
Write(' Ingrese su Nombre: ');
Readln( P.Nombre );
Write(' Ingrese su Edad: ');
Readln( P.Edad );
Write(' Ingrese su Sexo [M / F]: ');
Readln( P.Sexo );
Write(' Ingrese su Dirección: ');
Readln( P.Direccion );
Write(' Ingrese su Teléfono: ');
Readln( P.Telefono )
{ fin carga del registro}

{mostrar información del registro}
Writeln(' El Nombre es: ' , P.Nombre );
Writeln(' La Edad es:’ ,P.Edad );
Writeln(' El sexo de la persona es:’ , P.Sexo );
Writeln(' La Dirección es: ', P.Direccion );
Writeln(' el numero de Teléfono es: ' ,P.Telefono );
{fin mostrar información del registro}
End.