Разделить программу на модули - Turbo Pascal

Формулировка задачи:

Есть программа. Помогите ее разбить и часть запихать в модуль, что бы все работало, а то у меня не получается.

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.

Решение задачи: «Разделить программу на модули»

Листинг программы

unit funcs;
interface
type
 fun = function(x: real) : real;
function f1(x: real): real;
function f2(x: real): real;
procedure rascet(x1, x2: real; y, z: fun);
 
implementation
const
 e=0.0001;
{$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;
 
end.

Объяснение кода листинга программы

В unit funcs объявлены три функции и один процедурный код.
Функция f1 принимает один параметр типа real и возвращает значение типа real. Внутри функции объявлены три переменные: n, s и t. Переменная n инициализируется значением 0, t устанавливается равной 1, а переменная s устанавливается равной сумме t и предыдущего значения s. Затем, в цикле while выполняется условие abs(t)<=e (где e - это константа, равная 0.0001), пока это условие истинно. В этом цикле значение переменной t умножается на x/n (где x - это текущее значение переменной t), и результат добавляется к переменной s. После завершения цикла, значение переменной f1 устанавливается равным значению переменной s.
Функция f2 также принимает один параметр типа real и возвращает значение типа real. Внутри функции объявлены те же переменные, что и в функции f1. Цикл while выполняется аналогично, но с другими значениями переменных.
Процедура rascet принимает четыре параметра: x1, x2, y и z, все они типа real. Внутри процедуры выводится значение y(x1) и значение z(x2) в формате S1=значение.
Конец реализации блока для функций и процедур.