program ejercicio1;
const
    valorAlto=9999;
type
    tipoZona = record
        codArea: integer;
        codSector: integer;
        codEspecie: integer;
        nomEspecie: string[20];
    end;
    archivo = file of zona;

procedure leer(var arch: archivo; var z: tipoZona);
begin
    if(not EOF(archivo)) then
        read(arch, z);
    else
        z.codArea = valorAlto;
end;

var
    logico: archivo;
    zona: tipoZona;
    areaActual, sectorActual, especieActual: integer;
    contSector, contArea, contEspecie: integer;
begin
    assign(logico, 'arboles');
    reset(logico);

    leer(arch, zona);
    while(zona.codArea <> valorAlto) do
    begin
        contArea := 0;
        areaActual := zona.codArea;
        write('Codigo de area: '); writeln(areaActual);
        while(zona.codArea = areaActual) do
        begin
            contSector := 0;
            sectorActual := zona.codSector;
            write('Codigo de sector: '); writeln(sectorActual);
            while(zona.codSector = sectorActual) do
            begin
                contEspecie := 0;
                especieActual := zona.codEspecie;
                write('Codigo de especie: '); write(especieActual); write(' Nombre de especie: '); writeln(zona.nomEspecie);
                while(zona.codEspecie = especieActual) do
                begin
                    contEspecie := contEspecie + 1;
                    contSector := contSector + 1;
                    contArea := contArea + 1;
                    leer(arch, zona);
                end;
                write('Total de arboles de especie: '); writeln(contEspecie);
            end;
            write('Total de arboles de sector: '); writeln(contSector);
        end;
        write('Total de arboles de area: '); writeln(contArea);
    end;

    close(logico);
end.