[Boris the Blade]

Код:

var
  h, m, s : integer;
begin
  h := s div 3600;
  s := s - h * 3600;
  m := s div 60;
  s := s - m * 60;
  EncodeTime(h, m, s, 0);
end;