with ada.text_io, ada.integer_text_io, ada.direct_io;

procedure simple_database is

   type record_type is record
      name : string(1..20);
      age : integer;
   end record_type;

   type record_array_type is array(1..100) of record_type;

   file_type : file of record_type;
   record_array : record_array_type;

   procedure write_record(i : integer) is
   begin
      ada.text_io.put("Enter name: ");
      ada.text_io.get_line(record_array(i).name);
      ada.text_io.put("Enter age: ");
      ada.integer_text_io.get(record_array(i).age);
      ada.direct_io.write(file_type, record_array(i));
   end write_record;

   procedure read_record(i : integer) is
      record : record_type;
   begin
      ada.direct_io.read(file_type, record);
      record_array(i) := record;
   end read_record;

begin

   ada.direct_io.create(file_type, "mydb.dat");
   for i in 1..100 loop
      write_record(i);
   end loop;
   ada.direct_io.close(file_type);

   ada.direct_io.open(file_type, "mydb.dat");
   for i in 1..100 loop
      read_record(i);
   end loop;
   ada.direct_io.close(file_type);

   for i in 1..100 loop
      ada.text_io.put_line(record_array(i).name & " " & record_array(i).age'img);
   end loop;

end simple_database;