Pascal/Turbo Pascal - cuenta regresiva

como enlaso el reloj???
esque necesito un programa en el que el usuario tenga un tiempo para responder algo y necesito una cuenta regresiva o algo asi
¿¿como puedo hacerlo????
muchas gracias
---Alvaro Barahona---

for i:= 60 downto 0 do
begin
clrscr;
gotoxy(10,15); {ubica el cursor donde se desea escribir la cuenta regresiva}
write(i);
delay(600);
if i=0 then
begin
clrscr;
write('Se agoto su tiempo!');
end;
end;

saludos

Pirulex

Bueno, obviamente esto no te va a servir, ya pasaron 7 años. Pero cualquier novato puede llegar a la busqueda de tu pregunta.
Hay varias formas de hacerlo, pero una que se me viene a mente es con un ciclo.
Ejemplo:

PROGRAM example;

VAR
a : Real;

BEGIN
a := 1;
REPEAT
write(a:2:0);
a := a+1;
Delay(1000);
UNTIL a>10;

END.

Por si no se entendio, le asignamos el valor 1 a la variable "a".
Luego, se mostrara por pantalla el numero 1, luego a la variable "a" se le asignara el valor "a+1" ( es decir a valdra 2), y dejamos un Delay de 1 segundo, para que el contador corra con respecto a los segundos. Ahora este mismo bloque se va a repetir tantas veces como se cumpla la condicion de a>10.
En este caso corre del 1 al 10, pero solo basta con cambiar la condicion logica del UNTIL. Y si quieres que corra mas rapido, solo basta con modificar los milisegundos de la accion DELAY.
Luego le das el formato mas conveniente y listo.
Espero que le sirva a alguno que se encuentra con esta misma duda.
Saludos.