Pascal/Turbo Pascal - tiempo de ejecucion

hola quisiera saber si alguien sabe sacar el tiempo de ejecucion de un programa

{Esto te puede ayudar comprueva programa exterior o procedumiento interior si
colocas el procedimiento entre inicio y final}

program tiempeje;
{Comprovacion tiempo de ejecucion de un programa externo}
{$M $4000,0,0 }
uses
crt, dos;
var
h, m, s, s1 : word;
inicio, parada : real;
programa, cmd : string;

function principio : real;
begin
principio := 0.0;
gettime(h,m,s,s1);
principio := (h * 3600) + (m * 60) + s + (s1 / 100);
end;

function final : real;
begin
final := 0.0;
gettime(h,m,s,s1);
final := (h * 3600) + (m * 60) + s + (s1 / 100);
end;

begin
clrscr;
textcolor(15);
writeln('Programa a Ejecutar *.EXE');
writeln;
write('Programa a ejecutar directorio nombre y estension : ');
readln(programa);
cmd := ' ';
inicio := principio;
{Aqui el programa a calcular tiempo de ejecucion}
SwapVectors;
Exec(programa, cmd); {se ejecuta el programa}
SwapVectors;
{Aqui termina el programa a calcular tiempo de ejecucion}
parada := final;
writeln;
writeln('**** TIEMPO TRANSCURRIDO **** = ',parada - inicio:0:2,' s');
repeat until keypressed;
end.