with Ada.Text_IO;          use Ada.Text_IO;
with Ada.Integer_Text_IO;  use Ada.Integer_Text_IO;
with Ada.Sequential_IO;

procedure Interest is

   type Intressen is
     array(1..10) of Integer;

   type Rad_Type is
      record
	 Enamn : string;
	 Fnamn : String;
	 Gadress : String;
	 Padress : String;
	 Antal_Intressen : Integer;
	 Intressen : Intressen;
      end record;

   package Rad_IO is
      new Ada.Sequential_IO(Rad_Type)
     ;
   procedure Get_Rel_Ints (Rel_Ints : out Intressen) is
      Counter,I : Integer;
      Med : Boolean;
   begin

      Counter :=1;
      Get(I);
      Rel_Ints(1) := I;
      while I /= 0 loop
	 Med := True;
	 Get(I);
	 for X in 1..Counter loop
	    if I = Rel_Ints(X) then
	    Med := False;
	    exit;
	    end if;
	 end loop;
	 if Med = True then
	    Counter := Counter +1;
	    Rel_Ints(Counter) := I;
	    if Counter = 10 then
	       exit;
	    end if;
	 end if;
      end loop;
   end Get_Rel_Ints;

   Procedure Get_Bin(Fran : in





begin






   end Interest