Определить время выполнения программы - Pascal

Формулировка задачи:

uses crt;
var a:array [1..100] of integer; i,k,n:integer;
begin
 writeln('n=');
 readln(n);
 for i:=1 to n do
  begin
   a[i]:=random(3);
   write(a[i]:4);
  end;
 writeln;
 k:=0;
 i:=1;
 while i<=n-k do
  begin
   if a[i+k]<>2 then
    begin
      a[i]:=a[i+k];
      i:=i+1;
    end
   else k:=k+1;
 end;
 for i:=1 to n-k do
  write(a[i]:4);
 writeln;
 writeln(k, ' двоек удалено');
 end.

а вот как сделать так, чтобы еще выводилось время, затраченное на выполнение программы?

Решение задачи: «Определить время выполнения программы»

Листинг программы

Uses Utils ;
function Milliseconds: integer;

Объяснение кода листинга программы

{ var startTime: integer; endTime: integer; elapsedTime: integer; utils: Utils; begin startTime := utils.Now; //код выполняемой программы endTime := utils.Now; elapsedTime := endTime - startTime; //возвращаем время выполнения программы Result := elapsedTime; end; end Milliseconds := #0; begin //запускаем функцию Milliseconds Milliseconds := #1; end;