Вычислить значение выражения

uses crt;
var x,eps,t,s:real;
    i:integer;
begin
clrscr;
repeat
write('x<>0 x=');
readln(x);
until x<>0;
write('eps=');
readln(eps);
i:=1;
t:=x/24;
s:=t*(i*4-x);
while abs(t*(i*4-x))>eps do
 begin
  i:=i+1;
  t:=-t*x*x*x*x/(4*i*(4*i-1)*(4*i-2)*(4*i-3));
  s:=s+t*(4*i-x)
 end;
writeln('S=',s:0:5);
writeln('F=',(2-sin(x)-cos(x)-exp(-x))/(2*x*x):0:5);
readln
end.

 
Program func;
 
Var x,eps: real;
  y,t,S: real;
 
procedure Summa (var x, eps: real; var s: real);
    var
i:integer;
begin
i:=1;
t:=x/24;
s:=t*(i*4-x);
while abs(t*(i*4-x))>eps do
 begin
  i:=i+1;
 t:=-t*x*x*x*x/(4*i*(4*i-1)*(4*i-2)*(4*i-3));
  s:=s+t*(4*i-x)
 end;
end;
 
 
 
Begin
writeln('Введите X и eps');
  readln(x,eps);
if x <> 0 then 
begin
  y := (2-sin(x)-cos(x)-exp(-1*x))/2*x*x;
  writeln('Y= ',y:5:5);
end
else writeln('Х не может быть равной 0');
if (eps<1) and (eps>0) then
begin
Summa(x,eps,s);
writeln('S= ',s:5:5);
end
else writeln('Некоректный eps');
End.

-t*x*x*x*x/(4*i*(4*i-1)*(4*i-2)*(4*i-3));