Паскаль / do9 / iriepas201 / Irie Pascal / samples / time

//***************************************************
//This program displays the current system time.
//The built-in procedure "gettime" is used to
// retrieve the current system time.
program time;
type
   TimePeriod = (am, pm);
var
   hour, minute, second : integer;
   period : TimePeriod;

   //This function converts an integer to a string
   // and makes sure the string contains at least
   // two digits.
   function Force2Digits(i : integer) : string;
   var
      s : string;
   begin
      str(i:1, s);
      if i < 10 then
         s := '0' + s;
      Force2Digits := s;
   end;

begin
   gettime(hour, minute, second);
   if hour > 12 then
      begin
         hour := hour - 12;
         period := pm
      end
   else
      period := am;
   write('Time is ');
   write(Force2Digits(hour), ':');
   write(Force2Digits(minute), ':');
   write(Force2Digits(second));
   case period of
   am: writeln(' AM');
   pm: writeln(' PM');
   end;
end.