CRT, pętla repeat

Szukałem przez 2h... W połowie programów(rzekomo z Delphi) używany jest moduł CRT. Zainstalowałem go, patcha do niego - ale nie działa. Gdzie indziej znalazłem info, że w delphi crt nie działa.
Potrzebuję aby wykonywało mi coś takiego:

program Czasomierz;
{$APPTYPE CONSOLE}
uses
  SysUtils, Math, Windows;
var
a : Integer;
begin
repeat
a := a+1; Sleep(1000);
Writeln('Czas: ',a);
until // i tutaj chce dac warunek nacisniecie dowolnego klawisza LUB enter. Znalazlem cos takiego jak keypressed, ale to wymaga CRT
end.

Z góry dziękuję za pomoc

Tutaj masz CRT dla Delphi (sam używam, więc wiem, że działa):
http://www.4shared.com/file/tQCEfTSj/CRT.html
Chyba wiesz, jak zainstalować...

Patryk27 napisał(a)

Tutaj masz CRT dla Delphi (sam używam, więc wiem, że działa):
http://www.4shared.com/file/tQCEfTSj/CRT.html
Chyba wiesz, jak zainstalować...

Wielkie dzięki za pomoc, widać CRT które miałem było uszkodzone.