Время выполнения программы.

[Небесный]

Задался таким вопросом: "Как посчитать время выполнения программы?"
Ну, вроде то и задача простая, взять время начало и конца программы - разница этих времен и будет время выполнения программы.
К своему огорчению - понял, что задача не так уж и простая ибо программа настолько быстро выполняется, что разница во времени составляет 0. (((

Вот пример программы:

uses crt, dos;
var
   hour,min,sec,hund: word;
   a,i: longint;
   t,t1,t2: real;
begin
     clrscr;
     a:=0;
     gettime(hour,min,sec,hund);
     writeln(hour,':',min,':',sec,':',hund);
     t1:=sec + hour*0.01 + min*60 + hour*3600;
     writeln('t1=',t1:0:10);
     for i:=0 to 1000000 do
         a:=a+1;
     for i:=0 to 1000000 do
         a:=a+1;
     for i:=0 to 1000000 do
         a:=a+1;
     for i:=0 to 1000000 do
         a:=a+1;
     for i:=0 to 1000000 do
         a:=a+1;
     writeln;
     gettime(hour,min,sec,hund);
     writeln(hour,':',min,':',sec,':',hund);
     t2:=sec + hour*0.01 + min*60 + hour*3600;
     writeln('t2=',t2:0:10);
     t:=t2-t1;
     writeln('t=',t);
     readln;
end.

Может кто-то подскажет, другой способ более правильный.
Благодарю за внимание и ответы!!!

ЗЫ: А, ну еще с праздником ПОБЕДЫ.

[MoBLer]

uses crt, dos;
var
   h,m,s,ms: word;
   a,i: longint;
   t,t1,t2: real;
begin
     clrscr;
     a:=0;
     gettime(h,m,s,ms);
     writeln(h,':',m,':',s,':',ms);
     t1:=ms+100 * (s + 60 * (m + 60 * h));
     writeln('t1=',t1:0:10);
      delay(55000);
     for i:=0 to 1000000 do
         a:=a+1;
     for i:=0 to 1000000 do
         a:=a+1;
     for i:=0 to 1000000 do
         a:=a+1;
     for i:=0 to 1000000 do
         a:=a+1;
     for i:=0 to 1000000 do
         a:=a+1;
     writeln;
     gettime(h,m,s,ms);
     writeln(h,':',m,':',s,':',ms);
     t2:=ms + 100 * (s + 60 * (m + 60 * h));
     writeln('t2=',t2:0:10);
     t:=t2-t1;
     writeln('t=',t);
     readln;
end.

для наглядности используем delay т.к. время выполнения очень очень маленькое.
Я предлагаю такой код он берет время сразу из памяти

uses crt, dos;
var
   hour,min,sec,hund: word;
   a,c,i,t: longint;
   t1,t2: real;
begin
     clrscr;
     a:=0;
     t:=meml[0:$046C];
     delay(50000);delay(50000);delay(50000);delay(50000);delay(50000);delay(50000);
     for i:=0 to 1000000 do
         a:=a+1;
     for i:=0 to 1000000 do
         c:=a+1;
     for i:=0 to 1000000 do
         a:=c+1;
     for i:=0 to 1000000 do
         a:=a+1;
     for i:=0 to 1000000 do
         a:=a+1;
     t:=meml[0:$046C]-t;
     writeln('t=',(t/18.2):6:4);
     readln;
end.

Время в секундах

[Небесный]

Не пойму зачем делать задержку?
Мне надо посчитать время некоторых участков кода, и сравнивать их между собой по времени выполнения. Надо какой-то сверхточный метод вычисления времени в наносекундах - я так подозреваю.
За эти дни поиска, я так и не нашел решения. (((

[MoBLer]

Нано секунды оО delay потому что ваш код выполняется очень быстро и мы нечего не увидим. gettime(часы,минуты,секунды,милисек унды) значит минимальное время которое можем найти в милисекундах. Наверное вам надо использовать ассемблерские вставки для такой точности.