[[seoane]]

Vamos por partes y despacito.

El contrario de esto:

Código Delphi [-]
if (op>=0) and (op<=4) then

no es esto:

Código Delphi [-]
if (op<0) and (op>4) then

es esto:

Código Delphi [-]
if (op<0) or (op>4) then

Sigamos, aqui lo unico que haces es mandar escribir la misma frase varias veces:

Código Delphi [-]
for j:=1 to nvuelos do
        writeln ('Escriba el codigo de vuelo(AAA111):  ');

Si quieres meter mas de una instruccion dentro de un bucle vas a tener que usar begin/end

Código Delphi [-]
for j:=1 to nvuelos do
begin
        writeln ('Escriba el codigo de vuelo(AAA111):  ');
      // Las demas instrucciones
end;

Y todavía sigo sin entender porque le pasas el parámetro nvuelos al procedure, si lo primero que haces en el procedure es leer su valor por teclado