Pascal/Turbo Pascal - Reloj en Turbo Pascal

program Reloj;

uses crt;

var seg,min,hor: Integer;

begin

clrscr;

seg:=1;

min:=0;

hor:=0;

repeat

gotoxy (40,12);

write (hor,' : ', min,' : ',seg);

seg:=seg+1;

delay (100);

if seg=60 then

begin

seg:=0;

min:=min+1;

hor:=hor+1;

clrscr;

end;

if min=60 then

min:=0;

if hor=23 then

hor:=0;

until keypressed;

end.

{Mira esto a ver si te funciona y otro modo }

program Reloj;

uses crt;

var seg,min,hor: Integer;

begin

clrscr;

seg:=1;

min:=0;

hor:=0;

repeat

gotoxy (40,12);

write (hor,' : ', min,' : ',seg);

seg:=seg+1;

delay (959);

if seg > 59 then

begin

  seg := 0;

  min := min + 1;

  if min > 59 then

  begin

    min := 0;

    hor := hor + 1;

    if hor = 23 then

    hor := 0;

  end;

   clrscr;

 end;

until keypressed;

end.

{program relog;

 uses

    crt, dos;

  var

    h, m, s, sem : Word;

  function ponemoscero(c : word) : string;

  var

    cade : string;

    begin

       str(c:0,cade);

       if Length(cade) = 1 then

       cade := '0' + cade;

      ponemoscero := cade;

    end;

   procedure elrelog;

   begin

     repeat

      gettime(h,m,s,sem);

      gotoxy(35,12);Write(ponemoscero(h),':',

          ponemoscero(m),':',ponemoscero(s));

     until keypressed;

    end;

   begin

      clrscr;

      elrelog;

   end.}