type time = record(тип запись)

[Arioh]

честно говоря даже не представляю как это сделать.ребят плиз хелп.спасайте.

Дано время, описанное следующим образом:
type time = record h:0..23; m,s: 0..59 end;
описать:
- процедуру, присваивающим параметру t1 время, на 1 секунду больше времени t (учесть смену суток).

[Serge_Bliznykov]

procedure AddOneSecond(var tm : time; var isDayChange : boolean);
begin
  isDayChange := false;
  if tm.s<59 then tm.s := tm.s + 1
  else begin
     {значит число секунд равно 59 - добавление единички - переход на новую минуту}
     tm.s := 0;
     if tm.m<59 then tm.m := tm.m+1 
     else  begin
       {значит число минут равно 59 - добавление единички - переход на новый час}
       if tm.h<23 then tm.h := tm.h + 1
       else begin
          tm.h := 0;
          isDayChange := true; {произошла смена суток}
       end;
     end;
  end;  
end;