program Karteikarte;
uses crt;

var person  :  RECORD
                      name        :  string[20];
                      vorname     :  string[20];
                      geburtstag  :  RECORD
                                           tag  : 1..31;
                                           monat: 1..12;
                                           jahr : 1850..2004;
                                     END;

               END;

begin
     clrscr;
     window(2,2,78,23);
     textbackground(white);
     textcolor(red);
     gotoxy(13,3);write('KARTEIKARTE mit Geburtstag ');
     textcolor(black);

          gotoxy(5,5); write('Name     :  ');readln(person.name);
          gotoxy(5,7); write('Vorname  :  ');readln(person.vorname);

          gotoxy(5,9); write('Geburtstag : ');
          gotoxy(10,11);write('Tag   :');readln(person.geburtstag.tag);
          gotoxy(10,13);write('Monat :');readln(person.geburtstag.monat);
          gotoxy(10,15);write('Jahr  :');readln(person.geburtstag.jahr);
          textcolor(green);
          gotoxy(5,17);write('Ausgabe  ');
          gotoxy(5,19);write(person.vorname,' ',person.name,'  ist am  ');
          gotoxy(25,20);write(person.geburtstag.tag,'.',person.geburtstag.monat,'.',person.geburtstag.jahr,'  geboren');
     readln;
end.