часы, помогите зациклить Опции

[kasak]

Как зациклить прогу чтобы она показывала точное время?

Код

program chasi;
uses dos;
var h, m, s, s10:word;
begin
writeln('the time is now:');
gettime(h, m, s, s10);
writeln(h:2,' hours ',m:2,' minutes ',s:2,' seconds');
writeln;
writeln('press ENTER to exit');
writeln;
writeln('visit us at http://karyna.h12.ru');
readln;
end.

[volvo]

kasak
Вот так:

Код

program chasi;
uses crt, dos;
var h, m, s, s10:word;
begin
clrscr;
gotoxy(5, 1); writeln('ESCAPE to exit timer...');
gotoxy(5, 2); writeln('the time is now:');
repeat
gettime(h, m, s, s10);
gotoxy(5, 5); writeln(h:2,' hours ',m:2,' minutes ',s:2,' seconds');
writeln;
if keypressed then
 if readkey = #27 then break;
until false;

writeln('press ENTER to exit');
writeln;
writeln('visit us at http://karyna.h12.ru');
readln;
end.