Найти сумму Ряда

function power(x:real;n:integer):real;
var i:integer;
begin
result:=1;
for i:=1 to n do
result:=result*x;
end;
function fact(n:integer):real;
var i:integer;
begin
result:=1;
for i:=1 to n do
result:=result*i;
end;
var x,h,e,t,s:real;
    z,n:integer;
begin
writeln('Введите значения x,h');
readln(x,h);
repeat
write('Введите значение точности 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
t:=sin(x)+h*cos(x);
s:=t;
z:=1;
n:=1;
while abs(t)>e do
 begin
  n:=n+1;
  z:=-z;
  t:=z*power(h,n)*sin(x)/fact(n);
  s:=s+t;
 end;
write('Сумма=',s:0:4)
end.

function sec(h,m,s:integer):integer;
begin
result:=3600*h+60*m+s;
end;
var h,m,s:integer;
begin
repeat
write('Количество часов от 0 до 23 h=');
readln(h);
until h in [0..23];
repeat
write('Количество минут от 0 до 59 m=');
readln(m);
until m in [0..59];
repeat
write('Количество секунд от 0 до 59 s=');
readln(s);
until s in [0..59];
writeln('Секунд с начала суток=',sec(h,m,s))
end.