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

uses CRT,dos;
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('другое - Выход из программы');
repeat
  w:=readkey;
  case w of
  #49:begin
       repeat
       GetTime(hour,min,sec,hund);
       gotoXY(35,13);
       Vyvod;
       gotoXY(18,3);
       delay(1000);
       until keypressed;
      end;
  #50:begin
      gotoXY(35,13);
      GetTime(hour,min,sec,hund);
      Vyvod;
       gotoXY(18,3);
      end;
  else exit;
  end;
until not(w in['1','2']);
readln
end.