Паскаль / 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.