длительность сортировки

[a_clarke]

Кто-нибудь,подскажите, как посчитать длительность сортировки(сортировка методом прямого включения)
Код:
program p1;
const n=8;
var a:array[1..n] of integer;
i,x,j: integer;
begin
randomize;
for i:=2 to n do a[i]:=random(100);
writeln('неотсортированный массив:');
for i:=1 to n do write(a[i],' ');
begin
for i:=2 to n do
begin
x:=a[i];
j:=i-1;
while x<a[j] do
begin
a[j+1]:=a[j];
j:=j-1;
end;
a[j+1]:=x
end;
end;
writeln;
writeln('отсортированный массив:');
for i:=1 to n do write(a[i],' ');
readln;
end.