Użytkownik ma 5 sek na wpisanie liczby - jak to zrobić?

Mam następujący problem.
Użytkownik musi w ciągu 5 sekund wpisać jakąś liczbę - jaki napisać kod w Turbo Pascalu? oczywiście odpada tutaj delay, ponieważ ona zatrzymuje program na jakiś czas, a użytkownik właśnie wtedy ma podać liczbę. Jak rozwiązać ten problem?

Szukałem odpowiednich procedur w module DOS, lecz nic interesującego nie znalazłem.

Proszę o pomoc.
Pozdrawiam, Robert.

repeat
delay(100);
czas:=czas+1;
until (keypressed) or (czas=50);
if czas=50 then *przekroczony czas* else 
begin
read(cyfra); //ew. robisz znak (typu char) := readkey;
end;

(na oko na szybkiego)

wielkie dzięki!!!!!!! :) :) :)