Pascal/Turbo Pascal - Me podeis ayudar?

Buenos dias a todos los foreros:

estoy aprendiendo a utilizar el turbopascal.Llevo un mes o asi en esto y me he quedado atascado en un ejercicio ,necesitaria ayuda ,y si conoceis de alguna pagina mas donde pueda acceder a mas ejercicios os lo agradeceria ,un saludo y gracias.

El ejercicio es :

Realizar un algoritmo que calcule la suma de los diez primeros números de la serie polinómica indicada a continuación:

X + X(al cubo)/ 3!+ x(a la quinta)/5!+X (a la septima)/7! +......

Siendo X un número introducido por el teclado, el numerador es el número elevado al exponente indicado y el denominador es el factorial de los números impares.

Muchas gracias de antemano

hecho solo la funcion de potencia pero nose seguir mas:

Function Potencia (Numero, Exponente: Real) : Real;
Begin
If Exponente = 0.0 Then Potencia:= 1.0 Else
If Numero = 0.0 Then Potencia:= 0.0 Else
If Abs(Exponente*Ln(Abs(Numero))) > 87.498 Then
Begin Writeln ('Error fatal: Desbordamiento interno en la expresión.'); Halt; End
Else
If Numero > 0.0 Then
Potencia := Exp(Exponente*Ln(Numero))
Else
If (Numero < 0.0) And (Frac(Exponente) = 0.0) Then
If Odd(Round(Exponente)) Then
Potencia:= -Potencia (-Numero, Exponente)
Else
Potencia := Potencia (-Numero, Exponente)
Else
Begin
Writeln ('Error fatal: La expresión dada no es válida.'); Halt;
End;
End; {Función}