ejer2-2.pas

program ejercicio2;
const
    valoralto = 9999;
type
    viajeTipo = record
        codViaje: integer;
        nombre: string[20];
        desc: string[100];
        precio: real;
        cantPasajes: integer;
    end;
    ventaTipo = record
        codViaje: integer;
        cantPasajes: integer;
    end;
    armaestro = file of viajeTipo;
    ardetalle = file of ventaTipo;

procedure leerViaje(var maestro: armaestro; var viaje: viajeTipo);
begin
    if(not EOF(maestro)) then
        read(maestro, viaje);
    else
        viaje.codViaje = valoralto;
end;

procedure leerVenta(var maestro: armaestro; var viaje: viajeTipo);
begin
end;

var
    viaje: viajeTipo;
    venta: ventaTipo;
    maestro: armaestro;
    detalle: ardetalle;
    texto: text;
begin
    assign(maestro, 'maestroejer2'); assign(detalle, 'detallejer2');
    reset(maestro); reset(detalle);
    {estan ordenados por codigo de viaje el detalle y maestro}
    leerViaje(maetro, viaje); leerVenta(detalle, venta);
    while((viaje.codViaje <> valoralto) and (venta.codViaje <> valoralto)) do
    begin
        while(venta.codViaje = viaje.codViaje) do
        begin
            viaje.cantPasajes = viaje.cantPasajes + venta.cantPasajes;
            leerVenta(detalle, venta);
        end;
        seek(maestro, filepos(maestro)-1);
        write(maestro, viaje);
        leerViaje(maestro, viaje);
    end;
    close(maestro);

    assign(texto, 'ventas.txt');
    rewrite(texto); reset(maestro);
    leerViaje(maestro, viaje);
    while(viaje.codViaje <> valoralto) do
    begin
        if viaje.cantPasajes > 0 then
        begin
            write(texto, viaje.nombre); write(texto, ' ');
            write(texto, viaje.desc); write(texto, ' ');
            write(texto, viaje.precio); write(texto, ' ');
            writeln(texto, viaje.cantPasajes);
        end;
        leerViaje(maestro, viaje);
    end;
    close(maestro);
    close(detalle);
end.