Подпрограммы.Помогите пожалуйста

[Petrichor]

Помогите пожалуйста.С помощью одной подпрограмма нужно вычислить две бесконечные суммы с погрешность 0.0001.Сделала только так(

program two_Funkcii;
const  e = 0.0001;
type fun = function(x:real) : real;
{$F+}
function f1(x:real) : real;
var n:integer;
    s,t:real;
begin
n:=0;
t:=1;
s:=t;
while abs(t)>=e do
 begin
  n:=n+1;
  t:=t*x/n;
  s:=s+t;
 end;
f1:=s;
end;
function f2(x:real) : real;
var n:integer;
    s,t:real;
begin
n:=1;
t:=x;
s:=t;
while abs(t)>=e do
 begin
  n:=n+1;
  t:=t*x*x/((2*n-2)*(2*n-1));
  s:=s+t;
 end;
f2:=s;
end;
{$F-}
procedure rascet(x1,x2:real;y,z:fun);
begin
writeln('S1=',y(x1):0:4);
writeln('S2=',z(x2):0:4)
end;
 begin
rascet(2.1,2.7,f1,f2);
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.