Pascal/Turbo Pascal - Como demostrar que método de ordenamiento es mas rápido

{Mira esto te dará una idea}

program time;

 uses

   crt, dos;

  type

   string12 = string[12];

  var

    h, m, s, ds : word;

    h1, m1, s1, ds1 : word;

    numeros : array[1..3000] of integer;

  procedure ponvalores;

  var

   num, i : integer;

   begin

     randomize;

     i := 1;

    repeat

      num := random(5000) + 1;

      numeros[i] := num;

      i := i + 1;

    until i > 3000;

  end;

  procedure ordena;

  var

    temp : integer;

    t,u : integer;

   begin

      for t := 1 to 3000 do

       for u := 3000 downto t + 1 do

       if numeros[t] > numeros[u] then

       begin

          temp := numeros[t];

          numeros[t] := numeros[u];

          numeros[u] := temp;

       end;

   end;

  procedure hora(var h0, m0, s0, ds0 : word);

  var

    regs : registers;

    hh : string[2];

    reloj : string[12];

    mm, ss, dss : string[2];

    begin

       regs.ah := $2c;

       msdos(regs);

       h0 := regs.ch;

       m0 := regs.cl;

       s0 := regs.dh;

       ds0 := regs.dl;

    end;

   begin

      clrscr;

      ponvalores;

      hora(h,m,s,ds);

      write('   Inocio ','   : ',h,':',m,':',s,':',ds);

      ordena;

      writeln;

      hora(h1,m1,s1,ds1);

      write('   Final  ','   : ',h1,':',m1,':',s1,':',ds1);

      writeln;

      write('   Transcurrido :',s1 - s,':',ds1 - ds,' Milisegundos');

      readkey;

   end.