with ada.text_io; use ada.text_io; 
with ada.float_text_io; use ada.float_text_io; 
 
procedure rec2  is 
    namesize: constant := 20;
    idsize: constant := 6;
    maxnumemp: constant := 100;

    type emprecord is record
        name: string(1 .. namesize);
        id: string(1 .. idsize);
        salary: float;
    end record;

    type emparray is array(1 .. maxnumemp) of emprecord; 

    count: integer := 0;

    the_emps: emparray;
    e: emprecord;
begin
    skip_line;
    while not end_of_file loop
        count := count + 1;
        get(e.name);
        get(e.id);
        get(e.salary);

        the_emps(count) := e;
    end loop;

    for i in reverse 1 .. count loop
        e := the_emps(i);
        if e.salary > 000_000.00 then
            put(e.name & " ");
            put(e.id & " ");
            put(e.salary, fore=>7, aft=>2, exp=>0);
            new_line;
        end if;
    end loop;

end rec2;