procedure readfile(var database: db);
    var i: integer; dbfile: file of rec;
    begin //readfile
{$i+}
        assign (dbfile, 'database.dbin');
        reset(dbfile);
        for i:= 1 to 100 do
          begin
           read(dbfile, database[i]);
          end;
        close(dbfile);
{$i-}
    end;//readfile