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

program N2;
uses crt;
 
var x: real;
f: integer;
 
function pow (x: real; n: integer):real;  //функция возведения в степень
begin
var i: integer; 
var h: real;
h:=1;
for i:=1 to n do
h:=h*x;
 
result:=h;
end;
 
function rec (x: real; n: integer):real;  //сама рекурсия
begin
 
var res: real;
 
if (n=0) then
res:=3.14/2+pow(x, 2*n+1)/(2*n+1)*(-1, n+1)              //ПОДСВЕЧИВАЕТ ОШИБКУ ТУТ
else
res:=pow(x, 2*n+1)/(2*n+1)*(-1, n+1)+arctan(x);      //И ТУТ
 
result:=res;
end;
 
BEGIN
 
readln(x, f);
writeln(x, f);
 
END.

if (n=0) then
res:=3.14/2+pow(x, 2*n+1)/(2*n+1)*pow(-1, n+1)
else
res:=pow(x, 2*n+1)/(2*n+1)*pow(-1, n+1)+arctan(x);

const e=0.00001; //точность
function Summa(x,sn,st:real;n:integer):real;
//параметры:  х, начальный член ряда(х), начальный текущий член ряда(x^(2*n+1)), счетчик итераций(от 1)}
var t:real; // изменяющийся текущий член ряда
begin
Summa:=sn;
t:=-st*x*x;
if abs(t)/(2*n+1)<e then  exit;
Summa:=Summa(x,sn+t/(2*n+1),t,n+1);
end;
var x:real;
begin
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
writeln ('Сумма=',Summa(x,x,x,1):0:5);
write('arctg(x)=',arctan(x):0:5);
end.