PROGRAM Recs (Input,Output);

TYPE
   Date = RECORD
           Day : 1..31;
           Month : 1..12;
           Year : 0..2000;
         End;

   Person = RECORD
              LastName : String[20];
              FirstName : String[12];
              Sex : (Male,Female);
              DOB : Date;
              MaritalStatus : Char;
            End;

VAR
   Birthday : Date;
   Me, You : Person;

BEGIN
   Me.LastName := 'Wills';
   Writeln(Me.LastName);
   Readln(You.FirstName);
   Writeln(You.FirstName);
END.