Pascal/Turbo Pascal - como hago que un programa muestre la hora???

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

con la funcion gettime(h,m,s,cs) ;
tienes que poner variables globales a h,s,m,cs