Dev pascal

Bonjour,
J'aimerai mettre dans mon programme la fonction qui compte les secondes, genre à la fin du programme ca dit en combien de temps on a joué.

Program Jeu;
uses crt;

var
name: string [10];
nombre, juste,a,b,compteur: integer;

begin
clrscr;
compteur:=1;
juste:= 25650;
{a:=25;}
{b:=5;}

{GOTOXY(a,b);}
writeln;

Writeln(' BIENVENUE AU JUSTE PRIX ');

writeln;
Write (' comment vous appelez vous ? ');
readln (name);
writeln;
writeln (' Suivez bien les intructions ' , name );
writeln;
writeln;
writeln('/// VOUS DEVEZ TROUVER UN NOMBRE QUI SE SITUE ENTRE 0 ET 30000 \\\');
writeln;

writeln (' Vous avez 30 secondes ---- top c''est parti');
repeat
writeln;

readln (nombre);

writeln;
writeln;

If nombre < juste then
Begin
writeln('c''est plus');
writeln;
End
Else
Begin
if nombre > juste then
writeln ( ' c''est moins');
writeln;
End;

Until nombre=juste;

compteur:=compteur+1;

if nombre <= juste then

sound(b);
writeln(' VOUS AVEZ GAGNE !!!!!!!! ');
Delay(40);
writeln;
writeln('avec ', compteur ,' essais ');
Nosound;



readln;

end.