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

Uses crt;
type
 mas=array[1..100] of integer;
Var n,i:integer;
    mass:mas;
procedure quicks(first,last:integer;var m:mas);
var i,j,c,x,n:integer;
begin
  i:=first;
  j:=last;
  x:=m[(first+last) div 2];
  repeat
    while m[i]>x do i:=i+1;
    while x>m[j] do j:=j-1;
    if i<=j then
     begin
       c:=m[i]; m[i]:=m[j]; m[j]:=c;
       i:=i+1; j:=j-1;
     end;
   until i>j;
   if first<j then quicks(first,j,m);
   if i<last then quicks(i,last,m);
  end;
begin
clrscr;
 n:=10;
 for i:=1 to n do mass[i]:=random (100);
 quicks (1,n,mass);
 writeln (' COPTUPOBAHHbIi MASSIV ');
 for i:=1 to n do write (mass[i]:4);
 writeln
end.

Uses crt,Utils;
type
 mas=array[1..100] of integer;
procedure quicks(first,last:integer;var m:mas);
var i,j,c,x,n:integer;
begin
  i:=first;
  j:=last;
  x:=m[(first+last) div 2];
  repeat
    while m[i]>x do i:=i+1;
    while x>m[j] do j:=j-1;
    if i<=j then
     begin
       c:=m[i]; m[i]:=m[j]; m[j]:=c;
       i:=i+1; j:=j-1;
     end;
   until i>j;
   if first<j then quicks(first,j,m);
   if i<last then quicks(i,last,m);
  end;
Var n,i:integer;
    mass:mas;
    n1:DateTime;
begin
n1:=CurrentDateTime;
writeln('Начало ',n1.Hour,':',n1.Minute,':',n1.Second,':',n1.Milliseconds);
 n:=10;
 for i:=1 to n do mass[i]:=random (100);
 quicks (1,n,mass);
 writeln (' COPTUPOBAHHbIi MASSIV ');
 for i:=1 to n do write (mass[i]:4);
 writeln;
n1:=CurrentDateTime;
writeln('Конец ',n1.Hour,':',n1.Minute,':',n1.Second,':',n1.Milliseconds);
 end.