Простой секундомер без графического режима

var mindec,min,secdec,sec:integer;
procedure printtime(a,b,c,d:integer);forward;{опережающий вызов printtime}
procedure stopwatch(mindec,min,secdec,sec:integer);{эта процедура вычисляет введенное время }
var a,b,c,d:integer;
 begin
   for a:=0 to mindec do 
     for b:=0 to min do
       for c:=0 to secdec do
         for d:=0 to sec do
      printtime(a,b,c,d);
  end;{end stopwatch}
procedure printtime(a,b,c,d:integer);{эта процедура выводит время на экран}
  begin
    gotoxy(10,5);{выводит часы в 5 строке 10 столбец(или как еготам)на экране можно поменять координнаты}
    delay(1000);{задержка вывода очередного значения на 1 секунду}
    write(a,b,':',c,d);{выводит в формате 00:00}
  end;
begin clrscr;
   writeln('какое время введете столько и будут работать часы');
   writeln('например если ввели 1 десяток секунд(secdec)то чтобы видеть');
   writeln('изменение секунд(sec)вводите в sec число 9 иначе');
   writeln('изменяться на экране будут только данные десятков секунд');
   witeln('если вводите только секунды(sec)все остальное вводите по 0');
  writeln('введите десятки минут от 0 до 5,если их нет вводите 0 ->');
    read(mindec);
  writeln('введите количество минут от 0 до 9,если их нет вводите 0 ->');
    read(min);
  writeln('введите десятки секунд от 0 до 5,если их нет вводите 0 ->');
    read(secdec);
  writeln('введите кол-во секунд до 9,если введете 0 то останетесь без наглядного пособия ->');
    read(sec);
 stopwatch(mindec,min,secdec,sec);
end;

uses crt;
var h,m,s,n:integer;
begin
clrscr;
repeat
writeln('Задайте текущее время, часы, минуты, секунды:');
readln(h,m,s);
until(h in [0..23])and(m in [0..59])and(s in [0..59]);
n:=s;
clrscr;
window(35,12,45,14);
textbackground(2);
textcolor(12);
clrscr;
repeat
 gotoXY(2,2);
 if h<10 then write('0',h,':') else write(h,':');
 if m<10 then write('0',m,':') else write(m,':');
 if s<10 then write('0',s) else write(s);
 gotoXY(80,25);
 delay(1000);
 if s=60 then
  begin
   s:=0;
   m:=m+1;
  end;
 if m=60 then
  begin
   m:=0;
   h:=h+1;
  end;
 if h=24 then
  begin
   s:=0;
   m:=0;
   h:=0;
  end;
 if (s-n+1) mod 10=0 then sound(600)
 else nosound;
 s:=s+1;
until keypressed;
window(0,0,80,25);
textbackground(0);
textcolor(15);
clrscr
end.

program clock;uses crt; 
var mindec,min,secdec,sec:integer;
procedure printtime(a,b,c,d:integer);forward;{опережающий вызов printtime}
procedure stopwatch(mindec,min,secdec,sec:integer);{эта процедура вычисляет введенное время }
var a,b,c,d:integer;
 begin
   for a:=0 to mindec do 
     for b:=0 to min do
       for c:=0 to secdec do
         for d:=0 to sec do
      printtime(a,b,c,d);
  end;{end stopwatch}
procedure printtime(a,b,c,d:integer);{эта процедура выводит время на экран}
  begin
    gotoxy(10,5);{выводит часы в 5 строке 10 столбец на экране но можно поменять координнаты}
    delay(1000);{задержка вывода очередного значения на 1 секунду}
    write(a,b,':',c,d);{выводит в формате 00:00}
  end;
begin clrscr;
   writeln('какое время введете столько и будут работать часы');
   writeln('например если ввели 1 десяток секунд(secdec)то чтобы видеть');
   writeln('изменение секунд(sec)вводите в sec число 9 иначе');
   writeln('изменяться на экране будут только данные десятков секунд');
   witeln('если вводите только секунды(sec)все остальное вводите по 0');
  write('введите десятки минут от 0 до 5,если их нет вводите 0 ->');
    readln(mindec);
  write('введите количество минут от 0 до 9,если их нет вводите 0 ->');
    readln(min);
  write('введите десятки секунд от 0 до 5,если их нет вводите 0 ->');
    readln(secdec);
  write('введите кол-во секунд до 9,если введете 0 то останетесь без наглядного пособия ->');
    readln(sec);
  clrscr;{очистка экрана}
 stopwatch(mindec,min,secdec,sec);
end;

 witeln

uses crt;
Var
i,j,k,y,z:integer;
Begin
 While true do
  Begin
   writeln;
   writeln;
   writeln;
   write('      ',i,':',y,j,':',z,k);
   delay(995);
   clrscr;
   k:=k+1;
   If k=10 then
    Begin
     z:=z+1;
     k:=0;
      If z=6 then
       Begin
        j:=j+1; 
        z:=0;
         If j=10 then
          Begin
           y:=y+1; 
           j:=0;
            If y=6 then
             Begin
              i:=i+1;
               y:=0; 
                  
  End;       
  End;       
  End;       
  End;    
  End;
End.