procedure File_It(Fil : out File_Type;
                     Person : in Person_Type) is

--      Temp : File_Type;

   begin


      Put_Line(fil, "--------------------------------------------------");
      Put(fil, Person.Efternamn(1..Person.Efternamn_Length));
      Put(fil, " ");
      Put(fil, Person.Fornamn(1..Person.Fornamn_Length));
      Put(fil, " ");
      Put(fil, Person.Gatuadress(1..Person.Gatuadress_Length));
      Put(fil, " ");
      Put(fil, Person.Postadress(1..Person.Postadress_Length));
      Put(fil, " *** Intressen: ");
      Put(fil, Person.Antal_Intressen, 0);
      New_Line(Fil);

   end File_It;

   Person : Person_Type;
   Fil : File_Type;

begin

   Open(Fil, Append_File, "fil");


   Get(Person);
   File_It(Fil, Person);

   Put("lol");

   Get(Person);
   File_It(Fil, Person);


   Close(Fil);

end Labb6;