Someone

with Ada.Text_Io; use Ada.Text_Io;
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;

with Ada.Sequential_Io;

procedure labb6 is

   type Intressen_Array is array(1..10) of Integer;
   type Person_type is
      record
         Efternamn : String(1..20);
         Fornamn : String(1..10);
         Gatuadress : String(1..20);
         Postadress : String(1..20);
         Antal_Intressen : Integer;
         Intressen : Intressen_Array;
      end record;

   package My_Person_Io is
      new Ada.Sequential_Io(Element_Type => Person_Type);
   use My_Person_Io;



   procedure Skapa_Fil (var : in Person_type) is
      Resultat : My_Person_Io.File_type;
   begin
      Create (resultat, Out_file, "resultat.txt");
      --  Open (file, In_File, "BIN.msdos.bin");
      -- Read (file, temp);
      --      Read(File, Temp);
   end Skapa_Fil;

   procedure Parsa_fil(incFile : in My_Person_Io.File_Type) is
      Resultat : My_Person_Io.File_type;
      Item : Person_Type;
      file : My_Person_Io.file_Type;
   begin
     -- File := Incfile;
      Create (resultat, Out_file, "resultat.txt");
      Open (file, In_File, "REG.msdos.bin");
      while not End_Of_File(File) loop
         while not End_Of_Line(File) loop
            Read (file, Item);
            Write (Resultat, Item);
         end loop;
         New_Line(File);
         Skip_Line(File);
      end loop;
   end loop;
   end Parsa_Fil;

   var : My_Person_Io.File_type;
begin
   parsa_fil(var) ;
end labb6;