Someone

// Aftermath
// 03/23/2007
// Teaching xerxes how to run a procedure for a time period.

program RepeatFor;
  var startTime, totalTime, timesRun: LongInt;
  
  procedure TestProcedure;
  begin
    timesRun := timesRun + 1;
  end;
begin
  startTime := GetSystemTime;
  
  repeat
    TestProcedure;
  until GetSystemTime - startTime >= 10000 // Repeat for at least 10 seconds

  totalTime := GetSystemTime - startTime;
  
  writeln('Repeated procedure ' + IntToStr(timesRun) + ' times in ' +
  IntToStr(totalTime) + ' ms!');
end.