Untitled

         Open (
         File => Datei,
         Mode => In_File,
         Name => "wunschliste.txt");

         Put ("Welches Geschenk soll gezaehlt werden?");
         New_Line;
         Eingabe := Get_Line;
         Eingabe := "*" & Eingabe;
         New_Line;

         while not End_Of_File (Datei) loop
            Zeile := Get_Line (File => Datei);


 if Zeile = Eingabe then
               Zaehler := Zaehler + 1;
               end if;
   end loop;
      Put (Zaehler);