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

      Temp : File_Type;

   begin

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


   end File_It;

   Person : Person_Type;
   Fil : File_Type;

begin

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


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

end Labb6;