procedure tim2;
begin
  textcolor(15);
  gotoxy(52,14);
  GetTime(ho1,mi1,se1,hund1);
  sek:=sek-10*(3600*(ho1-ho)+60*(mi1-mi)+se1-se);
  Writeln('Your time:',sek:5);
  textcolor(red);
end;