ряд тейлора

[likol07]

Разложить функцию y = cos (x) в ряд Тейлора и написать рекурсивную функцию для вычисления ее значения в точке x0> 0 с точностью e = 0.0001.

помогите написать рекурсию

[likol07]

где же ошибка?

program kk;
uses crt;
function pok ( x:real;n:integer ):real;
 var i,l,p:integer;
 begin
  l:=1;
   if n=0 then begin
   x:=1;
   l:=1;
   p:=1;
   end
    else   begin
   for i:=1 to n do begin
  l:=l*(-1);
  x:=x*x; end;
  for i:=1 to 2*n do
  p:=p*i;
      end;
  if (x/p)>0.0001 then  pok:= (x*l)/p + pok(x,n+1);
  end;
  var x :real; n:integer;
  begin
  read(x);
  n:=0;
  write(pok(x,n));
  end.