-- Chapter 24 - Program 2
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
with Ada.Sequential_IO;

procedure BiSeqIn is

   type MY_REC is
      record
         Age     : INTEGER;
         Sex     : CHARACTER;
         Initial : CHARACTER;
      end record;

   package Seq_IO is new Ada.Sequential_IO(MY_REC);
   use Seq_IO;

   Myself     : MY_REC;
   My_In_File : Seq_IO.FILE_TYPE;

begin

   Open(My_In_File, In_File, "NAMEFILE.TXT");

   for Index in 1..100 loop
      Read(My_In_File, Myself);
      if Myself.Age >= 82 then
         Put("Record number");
         Put(Myself.Age, 4);
         Put(" ");
         Put(Myself.Sex);
         Put(" ");
         Put(Myself.Initial);
         New_Line;
      end if;
   end loop;

   Close(My_In_File);

end BiSeqIn;




-- Result of Execution

-- Record number  82 M X
-- Record number  83 M X
-- Record number  84 M X
-- Record number  85 M X
-- Record number  86 M X
-- Record number  87 M X
-- Record number  88 M X
-- Record number  89 M X
-- Record number  90 M X
-- Record number  91 M X
-- Record number  92 M X
-- Record number  93 M X
-- Record number  94 M X
-- Record number  95 M X
-- Record number  96 M X
-- Record number  97 M X
-- Record number  98 M X
-- Record number  99 M X
-- Record number 100 M X