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
[-]
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;
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;