Написать программу, которая выводит на экран секундомер(электронный 00:00, 00:01 и т.д) — Pascal(Паскаль)

uses CRT;
var hour,min,sec,hund:word;
    w:char;
procedure Vyvod;
begin
if hour<10 then write('0',hour) else write(hour);
if min<10 then write(':0',min) else write(':',min);
if sec<10 then write(':0',sec) else write(':',sec);
end;
begin
clrscr;
writeln('1 - Запустить  таймер');
writeln('2 - Остановить таймер');
writeln('другое - Выход из программы');
hour:=0;
min:=0;
sec:=0;
repeat
  w:=readkey;
  case w of
  #49:begin
       repeat
       inc(sec);
       if sec=60 then
        begin
         inc(min);
         sec:=0;
        end;
       if min=60 then
        begin
         inc(hour);
         min:=0;
        end;
       gotoXY(35,13);
       Vyvod;
       gotoXY(18,3);
       delay(1000);
       until keypressed;
      end;
  #50:begin
      gotoXY(35,13);
      Vyvod;
      gotoXY(18,3);
      end;
  else exit;
  end;
until not(w in['1','2']);
readln
end.