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

procedure marcin is
   type powiaty is record
      nazwa :  integer;
      imie  :  integer;
   end record;
   package pliki is new ada.direct_io(powiaty);
   use     pliki;

   plik  : pliki.file_type;
--   p     : powiaty := (nazwa => 10, imie => 20);
--   n     : powiaty := (nazwa => 11, imie => 21);i
begin
 --  open(plik,out_file,"dane.bin");
null;
--   if end_of_file(plik) then put("plik pusty"); end if;
end marcin;