Uses
  Crt, Dos;

{ ATTENTION WINDOWS USERS:  change the above Uses statement to this:

  Uses
    Wincrt, Windos;

 These routines are supplied by Borland Corp. and may not conform to
 our formatting rules!

 The use of this program fragment is explained in the handout TIMER }

const
  days : array [0..6] of String[9] =
    ('Sunday','Monday','Tuesday',
     'Wednesday','Thursday','Friday',
     'Saturday');
var
  yr,  mo, day,  dow : word;
  hr, min, sec, hund : Word;

function LeadingZero(w : Word) : String;

var
  s : String;

begin
  Str(w :0, s);
  if Length(s) = 1 then
    s := '0' + s;
  LeadingZero := s;
end;