Вопрос по Pascal

Задача 50. Для проверки эффективности программ часто требуется определять и сравнивать время их работы. Создать модуль для поддержки таймера, включая процедуры задержки и определения времени, прошедшего с некоторого установленного момента.
Постараемся сделать решение независимым от особенностей операционной системы (т.е. воспользуемся процедурой получения текущего времени, а не счетчиком времени из области данных BIOS по адресу $40:$6C).
unit UTimeOut; {модуль поддержки таймера}
                 interface
 Procedure SetTimeOut(TMilli:longint); {Установка счетчика таймера, TMilli - количество миллисекунд ("завели будильник")}
 Function GetTimeOut:boolean; {Возвращает True, если с момента установки таймера прошло не менее чем TMilli миллисекунд ("будильник звенит")}

 procedure SetTimer; {фиксирует счетчик таймера ("запустили секундомер")}
 function GetTimer:longint; {возвращает количество миллисекунд, прошедших с момента фиксации счетчика }
 procedure Wait(M:longint); {задержка на M миллисекунд}

                 Implementation
uses dos; {подключаем модуль Dos для доступа к процедуре получения текущего времени }
var    Timer:longint;{момент фиксации таймера}
TTmilli:longint;{счетчик таймера}
{------------функция ConvertTime -------------}
function ConvertTime(H,M,S,Milli:integer):longint;
 begin {функция переводит часы, минуты, секунды и миллисекунды в миллисекунды}
  ConvertTime:= longint(h)*0360000+longint(M)*0006000+
longint(s)*0000100+longint(Milli);
 end;
{------------функция GetCurrentTime -------------}
function GetCurrentTime:longint;{возвращает текущее время в миллисекундах}
   var h,m,s,milli:word;
  begin
   GetTime(h,m,s,milli);{вызов процедуры из модуля Dos для получения текущего времени}
   GetCurrentTime:=ConvertTime(h,m,s,milli);
  end;
{------------процедура Wait -------------}
procedure Wait(M:longint);
  begin
   SetTimeOut(M);{устанавливаем счетчик}
   while not GetTimeOut do;{ожидаем "звонка"}
  end;
{------------процедура SetTimer -------------}
Procedure SetTimer;
 begin Timer:=GetCurrentTime; end;
{------------функция GetTimer -------------}
function GetTimer:longint;
   var NewTime:longint;
 begin
   NewTime:=GetCurrentTime;{получаем текущее время}
{Рассчитываем количество прошедших миллисекунд с момента фиксации таймера. Учитываем возможность перехода за полночь.}
   if newTime>=Timer then Gettimer:=Newtime-Timer
   else Gettimer:=Newtime-Timer+8640000; 
end;
{------------процедура SetTimeOut -------------}
 Procedure SetTimeOut(TMilli:longint);
  begin TTMilli:=TMilli; SetTimer end;
{------------функция GetTimeOut -------------}
Function GetTimeOut:boolean;
 begin
{возвращаем True, если количество времени, прошедшего с момента фиксации таймера, превышает значение счетчика}
   if TTMilli<GetTimer then GetTimeOut:=true
   else GetTimeOut:=false;
 end;
end. {модуль завершен}


Задача 51. Сравнить скорость работы циклов For, While и Repeat.
Решение:
uses crt,uTimeOut;
var i:longint;
 begin
  clrscr;
  write('Время работы цикла For ');
  Settimer;
  for i:=1 to 100000000 do;
  writeln(getTimer,' миллисекунд');
  write('Время работы цикла While ');
  Settimer;
  i:=1; while i<=100000000 do inc(i);
  writeln(getTimer,' миллисекунд');
  write('Время работы цикла Repeat ');
  Settimer;
  i:=1; repeat inc(i) until i>100000000;
  writeln(getTimer,' миллисекунд');
  readln;
 end.
В результате выполнения данной программы (компьютер с процессором Pentium-120) на экране появятся три строки:
Время работы цикла For 769 миллисекунд
Время работы цикла While 852 миллисекунд
Время работы цикла Repeat 856 миллисекунд
На самом деле, при каждом запуске программы мы получим чуть отличные результаты, однако общая тенденция достаточно ясна.