with Ada.Text_IO;
use Ada;

procedure Visuelle_Kryptographie is

   Datei_1, Datei_2 : Text_IO.File_Type;

   type Listenelement;
   type Zeiger is access Listenelement;

   type Listenelement is record
      Inhalt : String (1 .. 1);
      Naechstes : Zeiger;
   end record;

   Liste_1, Aktuell : Zeiger;
   Liste_2 : Zeiger;

 begin

   Text_IO.Open (Datei_1, Text_IO.In_File, "vc1.vcf");

   Liste_1 := new Listenelement;
   Aktuell := Liste_1;

   while not Text_IO.End_Of_File (Datei_1) loop
      Text_IO.Get (Datei_1, Aktuell.Inhalt);
      Text_IO.Put (Aktuell.Inhalt);
      Aktuell.Naechstes := new Listenelement;
      Aktuell := Aktuell.Naechstes;
   end loop;

   Text_IO.Close (Datei_1);

   Aktuell := Liste_1;

   --while Aktuell /= null loop
      --Text_IO.Put (Aktuell.Inhalt);
      --Text_IO.New_Line;
      --Aktuell := Aktuell.Naechstes;
   --end loop;

end Visuelle_Kryptographie;