ayuda con programacion

[[duilioisola]]

también veo que te falta un END; que finaliza la definición de un RECORD

Código Delphi [-]
t_fecha=record
   dia:1..31;
   mes:1..12;
   ano:1900..2100;
end;

De lo contrario el compilador pinesa que tienes un record (t_fecha) que contiene unas variables y un record (t_hour) que contiene unas variables y un record ...

Código Delphi [-]
{MAL}
Type

t_fecha=record
   dia:1..31;
   mes:1..12;
   ano:1900..2100;

   t_hour=record
      hora:0..23;
      minuto:0..59;
      segundo:0..59;

      t_tren:record
         codigo:string[6];
         estacion_destino:string[25];
         fecha_llegada:t_data;

         puntualidad:boolean;
         hora_llegada_est:t_hour;
         hora_llegada_real:t_hour;
      end;
      t_indice:array[1..Nmax];
      t_estacion : Array[t_index] of t_tren;
   {falta un end, ERROR}
{falta un end, ERROR}

{BIEN}
Type

t_fecha=record
   dia:1..31;
   mes:1..12;
   ano:1900..2100;
end;

t_hour=record
   hora:0..23;
   minuto:0..59;
   segundo:0..59;
end;

t_tren:record
   codigo:string[6];
   estacion_destino:string[25];
   fecha_llegada:t_data;
   puntualidad:boolean;
   hora_llegada_est:t_hour;
   hora_llegada_real:t_hour;
end;

t_indice:array[1..Nmax];
t_estacion : Array[t_index] of t_tren;