تبدیل ثانیه به ساعت و دقیقه و ثانیه

با سلام خدمت دوستان عزیز
من برنامه یا تابعی نیاز دارم که یک عدد رو بر حسب ثانیه بگیره و در خروجی به صورت ساعت و دقیقه و ثانیه نمایش بده خودم تا حدودی نوشتم ولی روی اعدا بزرگتر از 3600 خوب جواب نمیده علتش هم به خاطر اینه که عدد دقیقه اش عددی بزرگتر از 60 میشه تا زمانی که عدد کمتر از 3600 برنامه درست جواب میده ام همین که 3600 باشه خروجی میده 1:60:0 یا اگه باشه 3601 خروج میده 1:60:1 کد اش اینه:
برنامه تشکیل شده از یک button و یک label و یک edit که در رویداد کلیک button کد زیر نوشتم:

کد:

---

var h,m,s,time:integer;
begin
time:=strtoint(edit1.Text);
h:=time div 3600;
m:=time div 60;
s:=time mod 60;
label1.Caption:=inttostr(h)+':'+inttostr(m)+':'+in ttostr(s);
end;

---

بعد از خط چهارم اينو بنويس
time:=time mod 3600;

اینجوری کدتو اصلاح کن.

کد:

---

h := time div 3600;
m := time div 60 -(h*60);
s := time mod 60;

---

موفق باشید.

ممنون از لطفتون

من نديدم مرد مباح تا الان به سوالي اشتباه جواب بده
نديد جوابشو قبول دارم
خدا كمكش كنه هميشه
ياعلي