Помогите найти ошибку пожалуйста

[Petrichor]

Program twofunkcii;
const e=0.0001;

type fun=function(x:real;n:byte):real;
 var k:real;
 function f1(x:real;n:byte):real;far;
 begin
 f1:=x/n;
 end;
 function f2(x:real;n:byte):real;far;
 begin
 f2:=x*x/((2*n-2)*(2*n-1));
 end;
 function sum(f:fun;nomer:byte;pervoe:real;x:real):real;
 var
 s,sl:real;
 j:byte;
 begin
 j:=nomer;
 sl:=pervoe;
 s:=0;
 while sl>e do
 sl:=pervoe;
 s:=0;
 while sl>e do
 begin
 s:=s+sl;
 j:=j+1;
 sl:=sl*f(x,j);
 sum:=s;
 end;
 end;
 begin
 writeln('sum=',sum(f1,0,1,2.1):5:3);
 writeln('sum=',sum(f2,1,2.7,2.7):5:3);
 readln
 end.

Задание: С погрешностью 0.0001 вычислить для ,Суммы (n=0 до бесконечности) x^n/n! x=2.1 и для Суммы (n=0 до бесконечности)x^(2n-1)/(2n-1)! x=2.7

[Stilet]

А в чем заключается проявление ошибки?

[puporev]

Program twofunkcii;
const e=0.0001;
type fun=function(x:real;n:byte):real;
function f1(x:real;n:byte):real;far;
begin
f1:=x/n;
end;
function f2(x:real;n:byte):real;far;
begin
f2:=x*x/((2*n-2)*(2*n-1));
end;
function sum(f:fun;nomer:byte;pervoe:real;x:real):real;
var s,sl:real;
    j:byte;
begin
j:=nomer;
sl:=pervoe;
s:=sl;
while abs(sl)>e do
 begin
  j:=j+1;
  sl:=sl*f(x,j);
  s:=s+sl
 end;
sum:=s
end;
begin
writeln('sum1=',sum(f1,0,1,2.1):0:4);
writeln('sum2=',sum(f2,1,2.7,2.7):0:4);
readln
end.