настройка программы!ВАжно

[6ot777]

uses crt;
var i,n:byte;sum,x:real;
function f(a:byte):longint;
var i:byte;temp:longint;
begin
temp:=1;
for i:=2 to a do
temp:=temp*i;
f:=temp;
end;
function e(a:real;b:byte):real;
begin
e:=exp(b*ln(a));
end;
begin
clrscr;
write('Length: ');
readln(n);
write('X: ');
readln(x);
for i:=1 to n do
if(odd(i)=false)then
sum:=sum+(((i+1)*e(x,i))/f(i))
else
sum:=sum-(((i+1)*e(x,i))/f(i));
writeln('Sum: ',sum:0:2);
readkey;
end.




Программа должна работать следующим образом:вводим все данные в функцию и в дальнейшем она должна разложить её в ряд Фурье!!!помогите доделать либо исправить исходный код