Написать рекурсивную функцию

program task2_recurs;
uses crt;
 
//функция подсчета факториала
function fact(x:integer):longint;
begin
if x = 0 then fact:=1 
  else
  fact:=x*fact(x-1);
end;
 
//функция расчета следующего члена ряда
function mem(x:real; n:integer):real;
begin
  mem:=power(-1,n+1)*((power(3,2*n-1)-3)/(fact(2*n+1)))*power(x,2*n+1);
end;
 
//основная программа
var
  Fx,x,eps,tmp:real;//Значение функции, аргумент ф-ии, точность, приращение ф-ии
  n:longint;// счетчик
begin
  writeln('Программа рассчитывает значение функции sin^3(x)');
  n:=2; //начинаем с 2, т.к. при n=1 Fx = 0
  repeat
    writeln('Введите X (Х<1): ');
    readln(x);
    if x>=1 then writeln('Некорректное значение. Повторите ввод.');
  until x<1;
  writeln('Введите точность: ');
  readln(eps);
  writeln;
  tmp:=1/4*mem(x,n);
  Fx:=tmp;
  while abs(tmp) > eps do //пока приращение больше точности
    begin
      inc(n);      
      tmp:=1/4*mem(x,n);
 
    end;
  writeln('Значение функции: ', Fx);
  writeln('Количество итераций: ', n);
end.

writeln('sin^3(x)=',power(sin(x),3));

var x,e,t,s:real;
    n:integer;
begin
repeat
write('Введите x<1 x=');
readln(x);
until x<1;
repeat
write('Введите точность 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
n:=1;
t:=x*x*x/6;//рекуррентная часть первого члена
s:=t*(power(3,2*n+1)-3);//первая сумма
while abs(t)*(power(3,2*n+1)-3)>e do//пока модуль рекуррентной части умноженый на
                                    //числитель больше точности
 begin
  n:=n+1; //увеличиваем счетчик
  t:=-t*x*x/(2*n)/(2*n+1);//через рекуррентное отношение вычисляем рекуррентную часть
                          //следующего члена
  s:=s+t*(power(3,2*n+1)-3);//домножаем ее на числитель и прибавляем
 end;
s:=s/4;
writeln('Сумма=',s:0:4);
//writeln()
write('sin^3(x)=',power(sin(x),3):0:4);
end.