Помогите пожалуйста Идёт k-я секунда суток. Разработать программу, которая по введённой 5-й секунде суток определяет, сколько целых часов h и целых минут m прошло с начала суток. Выведите на экран фразу: It is … hours … minutes. Вместо многоточий программа должна выводить значения h и m, отделяя их от слов ровно одним пробелом. Напишите подробно пожадуйста

Program ex;
var k,h,m: integer;
begin
  write(Введите k: );
  readln(k);
  h:=k div 3600;
  m:=(k - h)div 60;
  write(It is ,h, hours ,m, minutes);
end.