Паскаль(задача). Составить программу определения показания часов

[Fairmont]

В некоторый момент врмени часы показывают h часов, m минут, s секунд. Со-ставить программу определения показания часов через:-   s секунд;      m минут; h часов;
Начальное время сделал как константа, сделал в начале с секундами вроде все работает начал проверят и нашел ошибку

program day;
const
h=8;
m=32;
s=32;
sr=3600;

symbols='÷àñîâ';
symbols1='ìèíóòû';

symbols2='ñåêóíäû';
var
a,b,c1,c2,c3,c4,h1,m1,s1:integer;
begin
writeln ('Íà÷àëüíîå âðåìÿ',h:5,symbols, m:5,symbols1, s:5,symbols2);
writeln ('n ÷èñëî ñåêóíä');
readln(a);
c1:=a div sr;
c2:=a mod sr;
c3:=c2 div 60;
c4:=c2 mod 60;
h1:=h+c1;
m1:=m+c3;
s1:=s+c4;
if
s1=60 then begin s1:=00; m1:=m+1; end;
if
s1>60 then begin s1:=s1-60; m1:=m+1; end;
writeln(h1:5,m1:5,s1:5);
end.

просто когда водишь 88 секунд он считает, что одна целая не учитывая начальные 32 секунды[/list]