Как можно на Pascal сделать процедуру подсчета времени выполнения программы Опции

[Coconut]

Как на Pascal сделать процедуру выполняющую подсчет времени выполнения программы? Нужна для сравнения скорости выполнеия сортировок.
У меня есть на Delphi. Можно ли ее переделать?
var
OperBegin, OperEnd: TTimeStamp;
Total: LongWord;

begin
OperBegin := DateTimeToTimeStamp(Now); {запоминается момент начала
операции}

{Здесь размещается код операции}

OperEnd := DateTimeToTimeStamp(Now); {запоминается момент окончания
операции}
Total := OperEnd.Time - OperBegin.Time;
end;

[Bokul]

Можно также работать с досовской процедурой GetTime(Var Hour,Minute,Second,Sec100:word), но будет медленнее + мороки больше.

[volvo]

будет медленнее + мороки больше.

Ну, прямо таки больше?
Quicksort

А насчет "медленнее" - можно узнать, что ты имел в виду?