Pascal/Turbo Pascal - bucle sencillo

Hola!
Supongo que para vosotros será sencillo ayudarme a resolver una ecuación matemática del tipo sen(x):(-1)elevado a n * Xelevado a 2n+1 y dividido por (2n+1)factorial utilizando un bucle while.
Es la serie de Taylor y ha de parar el bucle cuando el error de sen(x)real menos el error de sen(x)con la serie de Taylor sea menor que un error dado.
Mi problema radica en no saber comoo elevar un dato a 2n+1 y como hacer el factorial.
Me podriais ayudar?

Es fácil una potencia la puedes hacer

Function potencia(x,y:longint):longint;
begin
if y=1 then potencia:=x
else potencia:=x * potencia(x,y-1);
end

y el factorial de la misma manera

function factorial(n:longint):longint;
begin
if n=1 then factorial:=1
else factorial:=n * factorial(n-1);
end;