Проблема с процедурой Gettime

[erazer89]

uses crt,dos;
var i,k:word;
h,m,s,h1:word;
t:longint;
Begin
clrscr;
begin
i:=1;
k:=5;
while i<120 do
begin
if ((i+k) mod 7)=3
then i:=i*i+1
else i:=k*i+17;
end;
end;
writeln('Pascal i=',i);

gettime(h,m,s,h1);
writeln('Time Pascal: ',s*100+m*6000+h1);
for t:=1 to 10000 do

begin
asm
mov i,1;
mov k,5;
@m0:
cmp i,120;
jg @m3;
mov ax,i;
add ax,k;
mov bh,7;
div bh;
cmp dx,3;
je @m2;
jmp @m1;
@m2:
mov ax,i;
mul ax;
add ax,1;
mov i,ax;
jmp @m0;
@m1:
mov ax,i;
mul k;
add ax,17;
mov i,ax;
jmp @m0;
@m3:
end;
end;
writeln;
writeln('Assembler i=',i);

gettime(h,m,s,h1);
writeln('Time Asambler: ',s*100+m*6000+h1);

readln;
end.


Задача gettime в этой программе в том, что нужно высчитать время обоих блоков программы. Первая процедура показывает время работы блока на pascal а вторая на асамблере. Проблема в том, что при компиляции время одинаковое, не могу понять почему? Подскажите..