Chuyển đổi giờ, phút, giây

Hôm nay mình nhận được một bài toán khá là hay từ một bạn học sinh lớp 10 chuẩn bị thi vào đội tuyển HSG Tin học của trường bạn ấy. Đề như sau :
Viết chương trình nhập vào n giây. Hãy chuyển đổi và viết ra màn hình số thời gian trên dưới dạng bằng a giờ, b phút, c giây.
Ví dụ : n = 61 giây thì sẽ in ra màn hình : 0 giờ 1 phút 1 giây.

Program chuyendoithoigian; 
Uses crt; 
Var gio, phut,giay, x: longint; 
Begin
Clrscr; 
Write('Nhap vao so giay: '); 
readln(x); 
gio:=x div 3600; 
x:=x mod 3600; 
phut:=x div 60; 
x:=x mod 60; 
Writeln('Ket qua = ', gio,'gio: ', phut, 'phut: ', x, 'giay'); 
Readln; 
End.