Секундомер и delay, от чего зависит задержка? Опции

[cooler]

Есть секундомер
Но что-то он сильно быстро бегает.
В чём может быть проблема?

Код

uses crt;

function Zero (i: integer): string;
var
     s: string[2];
begin
     str (i, s);
     if i < 10 then
          s := '0' + s;
     Zero := s;
end;

procedure ShowTime (t: word);
var
     mm, ss: word;
begin
     mm := t div 60;  { целое кол-во при делении на 60 секунд }
     ss   := t mod 60; {остаток от деления на 60 секунд }
    
     write (mm:2, ':', Zero(ss): 2);
end;

var
     elapsed: word; {истёкшее время}
    
begin
     elapsed := 0;
     while Not Keypressed do
     begin
          inc (elapsed);
          delay (1000); {1 sec = 1000 msec}
          clrscr;
          ShowTime (elapsed);
     end;
end.

[Lapp]

что-то он сильно быстро бегает.
В чём может быть проблема?

Проблема в том, что delay из TP/BP работает некорректно. Обсуждение этого давно перестало быть актуальным (поищи в FAQе).

Для подобных целей рекомендую использовать GetTime/GetDate. Реализуй свою функцию наподобие такой (раскопал специально для тебя из старых запасов)):

function Timer:LongInt;  {время в сотых долях секунды}
var
  m,d,h,mi,s,s1:word;
  l:LongInt;
begin
  GetDate(h,m,d,mi);GetTime(h,mi,s,s1);l:=d;
  Timer:=(((l*24+h)*60+mi)*60+s)*100+s1
end;

И тогда вместо Delay(1000) ставь, например, цикл:

t0:=Timer;
while Timer-t0<100 do;

Хотя, конечно, такой стиль работы - непростительная трата ресурсов..