Pascal/Turbo Pascal - PROGRAMA EN PASCAL Insertar pasajeros

{Esto seria con arrays el consumo de memoria no permite muchos mas datos te puede valer así

o no}

 program vuelo;

  uses

    crt;

  type

    pasaje = record

        Nro_de_Vuelo : string[5];

        Apellido : string[30];

        Nombre : string[30];

        C_I : string[15];

     end;

  var

   tipos_de_vuelo : array[1..10] of record

              destino : string[50];

             capacidad_del_avion : integer;

             viajeros : array[1..50] of pasaje;

           end;

   cont : integer;

 procedure entrada_datos(n,t : integer);

 var

   estado : boolean;

   cc : integer;

 begin

      clrscr;

      estado := false;

      if cont > 50 then

      begin

         estado := true;

      end;

      if estado = true then

      begin

      end

    else

      begin

      gotoxy(6,1);write('**** Entrada de Viajeros ****');

      gotoxy(6,3);write('destino   : ');

      gotoxy(6,4);write('capacidad : ');

      gotoxy(6,5);write('n§ vuelo  : ');

      gotoxy(6,6);write('apellido  : ');

      gotoxy(6,7);write('nombre    : ');

      gotoxy(6,8);write('c:i       : ');

      gotoxy(18,3);readln(tipos_de_vuelo[n].destino);

      gotoxy(18,4);readln(tipos_de_vuelo[n].capacidad_del_avion);

      gotoxy(18,5);readln(tipos_de_vuelo[n].viajeros[t].Nro_de_Vuelo);

      gotoxy(18,6);readln(tipos_de_vuelo[n].viajeros[t].Apellido);

      gotoxy(18,7);readln(tipos_de_vuelo[n].viajeros[t].Nombre);

      gotoxy(18,8);readln(tipos_de_vuelo[n].viajeros[t].C_I);

      gotoxy(6,11);write('<<< Fin de entrada Pulse [Enter] >>>');

  end;

 end;

 begin

    cont := 1;

    entrada_datos(1,cont);

    readln;

 end.