Temp d'execution sur pascal

program SansNom; uses Dos;

var h1,m1,s1,c1,h2,m2,s2,c2:word;
begin
GetTime(h1,m1,s1,c1);
{
       Contenu du  programme
}
GetTime(h2,m2,s2,c2);

writeln; write('Fin du programme. Temps d''execution : ');
if h2<h1 then write(((24+h2-h1)*3600+(m2-m1)*60+(s2-s1)+real(c2-c1)/100):0:2)
         else write(((h2-h1)*3600+(m2-m1)*60+(s2-s1)+real(c2-c1)/100):0:2);
write(' secondes'); readln;
end.

program SansNom; uses Time;

begin
{
     Contenu du Programme
}
end.

unit Time;

interface

implementation

uses dos;

type ProcType = procedure;

var OldProc: ProcType;
    r1:real;

function RealOfGetTime:real;
var h,m,s,c:word;
begin
   GetTime(h,m,s,c);
   result:=h*3600+m*60+s+real(c)/100;
end;

procedure ToDoAtExit;
var f: text; r,r2:real;
begin
   Exitproc := OldProc;
   r2:=RealOfGetTime;
   r:=r2-r1;
   if r<0 then r:=r+24*3600;
   writeln;
   write('Fin du programme. Temps d''execution : ',r:0:2,' secondes');
   assign(f, 'CON'); reset(f); readln(f);
end;

procedure Install_ExitProc;
begin
   OldProc := ProcType(ExitProc);
   ExitProc := @ToDoAtExit;
end;

begin
   r1:=RealOfGetTime;
   Install_ExitProc;
end.

   write('Fin du programme. Temps d''execution : ',r:0:2,' secondes');

   if ErrorAddr=nil then write('Fin du programme')
                    else write('Erreur ',ExitCode);
   write('. Temps d''execution : ',r:0:2,' secondes');