Нужно сделать расчёт времени, Помогите Опции

[Artem7]

Начали изучать Pascal и дали задачу вводим начальное время (ч,м,с) конечное время (ч,м,с) и надо сделать так чтобы он находил количество времени прошедшее от начала до конца и ответ чтобы выводил в формате (ч,м,с)
P.S Мы только начали проходить Pascal так что прошу как можно проще реализовать потомучто сказали с базовыми навыками реализовать.

[Artem7]

Program Primer2;
Var a,b,c:integer; {начальное}
    d,f,e:integer; {конечное}
    i,j,k:integer; {результат}
    ch1,min1,ch2,min2,nh,kn,rn:integer; {промежуточные данные}
Begin
   writeln('введите начальное время:');
   writeln('введите конечное время:');
   readln(a,b,c,d,f,e,i,j,k);
   ch1:=a*3600;
   min1:=b*60;
   ch2:=d*3600;
   min2:=f*60;
   nh:=ch1+min1+c;
   kn:=ch2+min2+e;
   rn:=nh-kn;
   writeln('разница=',rn);
   readln;
End.

Ну вот есть наработки как можно обратно всё перевести в часы, минуты, секунды по отдельности???