Срочно!!!!

[Bibendum]

Здравствуйте!
Дана задача: в окне показывается текущее время с дискретностью 10с (часы, минуты, секунды) в трех часовых поясах.
вот готовая программа:
program lab;
uses dos,crt;
var
h,m,s,s100:word;
begin
clrscr;
repeat window(31,11,50,16);
textbackground(5);
textcolor(+128);
Gettime(h,m,s,s100);
if s mod 10=0 then
writeln(h,' : ',m,' : ',s);

h:=h-3;if h>24 then h:=h+24;
if s mod 10=0 then
writeln(h,' : ',m,' : ',s);
h:=h-11;
if h>24 then h:=h+24;

if s mod 10=0 then
writeln(h,' : ',m,' : ',s);

until keypressed;


end.
вопрос: почему h>24?