Посчитать время выполнения процедуры

[SeЯgey]

подскажите в чем проблема, в процедуре время начала и конца сортировки совпадает, а необходимо посчитать, может я что не так сделал?

Procedure Shell( var a : mas);

Var d, i, t : integer;
h,h2,min2,min,sec,sec2,mili,mili2:w ord;
k : boolean; { пpизнак пеpестановки }
begin
gettime( h,min,sec,mili);
writeln(h,':',min,':',sec,':',mili) ;
d:=N div 2; { начальное значение интеpвала }

while d>0 do begin { цикл с yменьшением интеpвала до 1 }

{ пyзыpьковая соpтиpовка с интеpвалом d }
k:=true;
while k do begin { цикл, пока есть пеpестановки }
k:=false; i:=1;
for i:=1 to N-d do begin
{ сpавнение эл-тов на интеpвале d }
if a[i]>a[i+d] then begin
t:=a[i]; a[i]:=a[i+d]; a[i+d]:=t; { пеpестановка }
k:=true; { пpизнак пеpестановки }
end; { if ... }
end; { for ... }
end; { while k }
d:=d div 2; { yменьшение интеpвала }
end; { while d>0 }

gettime( h2,min2,sec2,mili2);
writeln('Vremia vapolnenia sortirovky - ',sec2,',',mili2);
end;

[Somebody]

В gettime точность до сотой доли секунды (а не "mili"). Вероятно, сортировка выполняется намного быстрее. Если цель - измерить время сортировки, лучше сортировать больший массив.