Type Daten = Record 
               Name,
               Vorname : String[30];
               Strasse : Sting[50];
               Plz:      LongInt;
               Wohnort : String[50];
               Daten_1,
               Daten_2,
               Daten_3 : Word;
             End;