Время работы сортировок

[Боня]

Ребята подскажите где можно взять погу для вывода времени сортировки массива.Очень срочно нужна

Сортировка слиянием

const n=8;
Type arrType = Array[1 .. n] Of Integer;
var a:arrType;
i1:integer;
Procedure merge(Var ar: arrType; n: Integer);
Procedure Slit( k, q: Integer );
Var m: Integer;
i, j, T: Integer;
d: arrType;
Begin
m := k + (q-k)div 2;
i := k;
j := Succ(m);
t := 1;
While (i <= m) and (j <= q) Do
Begin
If ar <= ar[j] Then
Begin
d[T] := ar;
Inc(i)
End
Else
Begin
d[T] := ar[j];
Inc(j)
End;
Inc(T)
End;
While i <= m Do
Begin
d[T] := ar;
Inc(i);
Inc(T)
End;
While j <= q Do
Begin
d[T] := ar[j];
Inc(j);
Inc(T)
End;
For i := 1 to Pred(T) Do ar[Pred(k+i)] := d
End;

Procedure Sort(i, j: Integer);
Var T: integer;
Begin
If i >= j Then Exit;
If j-i = 1 Then
Begin
If ar[j] < ar Then
Begin
T := ar;
ar := ar[j];
ar[j] := T
End
End
Else
Begin
Sort(i, i + (j-i)div 2);
Sort(i + (j-i)div 2 + 1, j);
Slit(i, j)
End;
End;
Begin
Sort(1, n);
End;
begin
for i1:=1 to n do readln(a[i1]);
merge(a,n);
for i1:=1 to n do write(a[i1],' ');
readln;
end.

[Роман Радер]

Если нужна продолжительность работы функции -

GetTickCount()

Возвращает кол-во миллисекунд после начала работы системы.
ЗЫ: Учитывайте погрешность! лучше запустить функцию 1000 раз, а потом разницу между началом и концом - поделить на 1000. Будет точнее