Código Pascal
type
TFecha = record
dia: integer;
mes: string;
anio: integer;
end;
TPaciente = record
nombreCompleto: string;
edad: integer;
altura: real;
fechaNacimiento: TFecha;
end;
var
paciente: TPaciente;
begin
// Tu código aquí...
end.
Visualización del Registro