procedure Labb_6 is

   package String_Test is
      new Ada.Sequential_IO(Element_Type => String);
   use String_Test;

   File : String_Test.File_Type;
   Test : String(1..20);

begin
   Open(File => File,
    Mode => In_File,
    Name => "/home/danha479/ADA/lab_6/REG.BIN");
   Read(File, Test);
   Ada.Text_IO.Put(Test);
   Close(File);
end Labb_6;