measure the run time of program

Примечение: ниже речь будет идти о возможностях Free Pascal (доступен в IDE Lazarus Delphi)

Общая идея (замер идет в миллисекундах):

uses DateUtils, sysutils;
var
  FromTime, ToTime: TDateTime;
  MilliSecondsDiff: Integer;
begin
  FromTime := Now();

{ какой-то ваш код, 
   время выполнения которого необходимо замерить}

  ToTime := Now();
  MilliSecondsDiff := MilliSecondsBetween(ToTime,FromTime);

  writeln('Vremya: ', MilliSecondsDiff);
  readln();
end. 

С пояснением и примером: