בעיה - פסקל!

[FreshServ.Net]

היי אנשים...
קיבלתי עבודה להכין שעון בפסקל...מממ עד כה רשמתי -

begin {main}
begin {main}
for i:=1 to 100 do
begin
clrscr;
gettime(h,m,s,s100);
writeln(h,':',m,':',s);
delay(50);
end;
end.

מממ הגדרתי את הפרוצדורות של gettime ו clrscr ו delay והקומפיילר אומר שהכל בסדר (טורבופסקל) אבל! כשאני מריץ הוא אומר לי error 200:devision by zero.

יש הצעות? תודה!