Hola mc7, bienvenido a los foros.
Antes de nada te recomiendo que revises la
Guía de estilo.
En cuanto a tu problema, realmente no explicas la parte más importante;
¿Qué errores te da?
Nos muestras un código que define unos records y unas variables y luego los escribe.
¿Es eso realmente lo que necesitas hacer?
¿De dónde deben salir los datos de los trenes? ¿Base de datos? ¿Fichero? ¿Debes pedirlos por pantalla?
Yo empezaría por explicar pasos pequeños del programa e ir solventándolos poco a poco.