rendered paste body 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;