часы Опции

[Гия]

Как на паскале сделать следующую вешь:
нужно чтобы отпечаталось текущее время например
               12:34:12
т. е. 12 часов 34 минуты и 12 секунд и затем точно
через каждую секунду.
что то не получилось сформулировать вопрос)

короче, надо чтобы шли часы в моей программе

заранее благодарю.              

[Ivs]

ну вообщето для этого служит ф-я GetTime(hour,min,sec,milisec);
вот небольшой пример:

Код

program Timer;
uses dos,crt;
var
  h,m,s,ms:Word;
begin
  ClrScr;
  repeat
     GetTime(h,m,s,ms);
     Gotoxy(1,1);
     Write(h:2,':',m:2,':',s:2);
  until keypressed;
end.