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

[Coconut]

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

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

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

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

[Bokul]

Вот, посмотри Как засекать время . Для Делфи тоже самое. Если надо точнее, то QueryPerformanceCounter и QueryPerformanceFrequency, о них можно почитать здесь