     TimeRec = Record
                 DayOfWeek,
                 Hours,Minutes,Seconds,Hundredths : Integer
               End;
