Счётчик времени...

[Nelson1992]

Помогите нужно вставить счётчик времени в этот код...

UNIT _111;
interface
const
stacksiza=100;
Var N : byte;
implementation
Procedure Hanoi(M1,M2,M3,N : byte);
Begin
 If N=1 then
 writeln(M1,' --> ',M3,'; ')
 else
 begin
  Hanoi(M1,M3,M2,N-1);
  Hanoi(M1,M2,M3,1);
  Hanoi(M2,M1,M3,N-1);
 end;
End;
Begin
 writeln ('koli4estvo diskov N = ');
 readln (N);
 if N>0 then
 Hanoi(1,2,3,N);
 readln;
End.