Структура типа "Время" - Часы, минуты, секунды - Pascal

Формулировка задачи:

"1)Структура типа "Время" - Часы, минуты, секунды Написать функцию, в которую Ты передаёшь переменную типа "Время", и функция возвращает эту же переменню, на 1 секунду больше

Решение задачи: «Структура типа "Время" - Часы, минуты, секунды»

Листинг программы

type
  TTime = record
    h, m, s: ShortInt;
  end;
 
function AddSec(var t: TTime): Boolean;
begin with t do begin
    Inc(s);
    Inc(m,s div 60); s:=s mod 60;
    Inc(h,m div 60); m:=m mod 60;
    AddSec:=h div 24>0; h:=h mod 24;
end; end;

Объяснение кода листинга программы

Объявляется пользовательский тип данных TTime, представляющий собой структуру с тремя полями: h (часы), m (минуты), s (секунды).
Объявляется функция AddSec, принимающая переменную типа TTime по ссылке и возвращающая значение типа Boolean.
В теле функции происходит увеличение секунд на 1 (Inc(s)), затем минут на количество полных минут, сответствующих количеству добавленных секунд (Inc(m, s div 60); s:=s mod 60), затем часов на количество полных часов, сответствующих количеству добавленных минут (Inc(h, m div 60); m:=m mod 60).
Возвращается результат проверки того, что количество полных часов после всех изменений больше 24 (AddSec:=h div 24>0), затем количество часов уменьшается до значения меньше 24 (h:=h mod 24).