program Binary_Input;

type Input_Record = record

       Number : integer;

       Amount : real;

       Name   : string[30];

     end;
var Input_File : file of Input_Record;

    Bird_Food  : array[1..20] of Input_Record;

    Index      : byte;
begin  (* main program *)

   Assign(Input_File,'KIBBLES.BIT');

   Reset(Input_File);
   for Index := 1 to 20 do

      if not Eof(Input_File) then

         Read(Input_File,Bird_Food[Index]);

   Close(Input_File);
   Writeln(Bird_Food[6].Number:6,Bird_Food[20].Amount:13:5,

           '  ',Bird_Food[1].Name);

end.  (* of main program *)

Result of execution
     6  12345.67890  Large size Kibbles & Bits