¿Alguien me ayuda a programar?

[[seoane]]

Empezado por Nanaky

P.D. Aunque funciona correctamente, me dice que es posible que la variable nvuelos no se inicialice, como puedo depurar este error?

Pues va a ser porque no la inicializas, aquí la estas usando:

Código Delphi [-]
  Leer_datos (v1,nvuelos);

y todavía no le has asignado ningún valor.

Además como ya te dije antes, no entiendo porque le pasas la variable si luego no la usas dentro del procedure. Si lo que intentas es utilizar el valor de nvuelos fuera del procedure, le tienes que poner "var" delante del nombre en la definición del procedure. Es decir:

Código Delphi [-]
procedure Leer_datos (VAR v1 : t_lista_vuelos;  var nvuelos:integer );