С помощью клавиатуры вводится h — кол-во часов от 0 до 24 ; N -кол-во минут от 0 до 60 ;S — кол-во секунд от 0 до 60.Какое время покажут электрические часы через 1 с — Pascal(Паскаль)

uses crt;
var  h: 0..23;
     n,s: 0..59;
begin
clrscr;
repeat
writeln('vvedite vremya t1');
readln(h,n,s);
if not(h in [0..23])or not(n in [0..59])or not(s in [0..59])
then writeln('Время введено неверно. Повторите ввод.');
until (h in [0..23])and(n in [0..59])and(s in [0..59]);
clrscr;
write('t1=  ');
write(h,':');
if n<10 then write('0',n,':') else write(n,':');
if s<10 then write('0',s) else write(s);
writeln;
if s<59 then s:=s+1
else if(s=59)and(n<59)then
 begin
  s:=0;
  n:=n+1;
 end
else if(s=59)and(n=59)and(h<23)then
 begin
  s:=0;
  n:=0;
  h:=h+1;
 end
else
 begin
  s:=0;
  n:=0;
  h:=0;
 end;
writeln('Время на секунду больше:');
write('t2=  ');
write(h,':');
if n<10 then write('0',n,':') else write(n,':');
if s<10 then write('0',s) else write(s);
readln
end.