Вычислить бесконечную сумму - Pascal ABC

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

Программа должна быть с использованием рекурсивной функции.У меня постоянно ошибки. Ниже есть код, который я пытался написать.

function Fact(n:integer):longint;
begin
if n=1 then fact:=1
         else fact:=fact(n-1)*n;
end;
 
Var i,n:integer;
j,s:longint;
begin
 
s:=0;
 
repeat
begin
s:=s+j;
j:=Fact(2*n+1);
i:=s/j;
 
end;
until i>0.0001;
writeln('i=', s:5:3)
end.

Решение задачи: «Вычислить бесконечную сумму»

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

  function Sum(n:integer; addend: real):real;
  begin
    {вычисление текущего слагаемого}
    addend:=....
    {проверка условия завершения рекурсии}
    if addend<eps then
      Sum:=n/addend;
    else
      Sum:=(n/addend)+Sum(n+1, addend);
  end;

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

Создается функция Sum с двумя параметрами: n (целое число) и addend (число с плавающей запятой).
Внутри функции определяется текущее слагаемое addend.
Проверяется условие завершения рекурсии. Если addend меньше eps (маленькая константа), то выполняется вычисление суммы n/addend.
Если условие не выполняется, то сумма вычисляется как сумма n/addend и (n+1)/addend, где addend - текущее слагаемое, а n - текущее значение n.
Функция возвращает результат.