Décompte secondes

Bonjour,
Dans le programme qui va suivre, j'aimerai que le jeu dure 30 secondes et qu'il s'arrete apresès mais j'arrive pas à le faire.

Merci!

Program Jeu;
uses crt;

{function realOfGetTime:real; }
var
h,m,s,c:word;
name: string [10];
nombre,juste,compteur: integer;
{getTime(h,m,s,c); }
begin

clrscr;

{result:=h*3600+m*60+s+real(c)/100; }

compteur:=1;
juste:= 25650;

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

writeln(' VOUS AVEZ GAGNE !!!!!!!! ');

writeln;
writeln('avec ', compteur ,' essais ');

readln;

end.