Program ConversionHeure;

uses wincrt;

procedure SecondsToHMS(const aSec: LongWord; var vH, vM, vS: word);
begin
vS := aSec mod 60;
vM := (aSec div 60) mod 60;
vH := aSec div 3600;...