Измерение длительности работы программы

Program Sort;
Uses 
   crt;
Const
   N=1;  
Type
   Index=1..N;
   Item=Record
            key:integer;
            data:string;
            end;
   M=Array [index] of item;
Var
   BubbleArr, InsertArr, SelectArr:M;
   i:index;
   Bcount,Icount,Scount:integer;
Procedure BubbleSort;
     var
     i,j:index;
     temp:item;
     begin
     for i:= 2 to N do
        begin
        for j:=n downto i do
             If BubbleArr[j-1].key>BubbleArr[j].key then
             begin
             temp:=BubbleArr[j-1];
             BubbleArr[j-1]:=BubbleArr[j];
             BubbleArr[j]:=temp;
             inc(Bcount)
             end;
        end;
     end;  
Procedure InsertSort;
     var
         i,j,k:index;
         temp:item;
     begin
        for i:=2 to N do
        begin
        temp:=InsertArr[i];
        j:=1;
        while (Temp.key>InsertArr[j].key) and (j<=i-1) do
             inc(j);
        for k:=i-1 downto j do
             begin
             InsertArr[k+1]:=InsertArr[k];
             inc(Icount)
             end;
        InsertArr[j]:=temp        
        end;
end;
Procedure SelectSort;
       var
         i, j, k: index;
         temp:item;
       begin
         for i := 1 to N-1 do
         begin
           k:= i;
           temp:= SelectArr[i];
           for j := i+1 to N do 
                begin
                   inc(Scount);
                   if SelectArr[j].key<temp.key then
                   k := j;
                end;           
           SelectArr[k] := SelectArr[i]; 
           SelectArr[i] := temp;
         end;
     end;
begin
clrscr;
randomize(1);
For i:= 1 to n do
     begin
     BubbleArr[i].key:=random(10);
     InsertArr[i].key:=BubbleArr[i].key;
     SelectArr[i].key:=BubbleArr[i].key;
     write(BubbleArr[i].key:2)
     end;
BubbleSort;
writeln;
writeln;
For i:=1 to N do
     write(BubbleArr[i].key:2);
writeln;
writeln;
InsertSort;
For i:=1 to N do
      write(InsertArr[i].key:2);
writeln;
writeln;
SelectSort;
For i:=1 to N do
      write(SelectArr[i].key:2);
For i:=1 to 3 do writeln;
writeln('Number of the Bubble Sort iterations:',Bcount:8);
writeln('Number of the Insert Sort iterations:',Icount:8);
writeln('Number of the Select Sort iterations:',Scount:8);
readln;
end.