Разложение функции по ряду Тейлора и вывод результатов в таблице

   function    funcTEY(x:real):real;
   begin       funcTEY:=(-1)*(x+12*sqr(x));
   end;          {вот эта функция не правильная, значение должно находиться}
                   {как то по другому}
 
   function    funcCOM(x:real):real;
   begin       if x<0.25 then
                  begin
                     if (1-x-12*sqr(x)) >0 then
                        funcCOM:=ln(1-x-12*sqr(x));
                  end
               else funcCOM:=0;
   end;
 
   procedure   table;
 
   var         n,i,l:byte;
               x,x1,x2,dx:real;
               s,s1:real;
 
   begin       clrscr;
               write('Vvedite nachalnoe znachenie ');
               readln(x1);
               write('Vvedite konechnoe znachenie ');
               readln(x2);
               write('Vvedite kolichestvo tochek razbieniya ');
               readln(n);
               clrscr;
               write (chr(201));
               for i:=1 to 48 do write(chr(205));
               writeln (chr(187));
               writeln(chr(186),'     x',chr(179),'       priblizhonnoe',chr(179),'             tochnoe',chr(186));
               dx:=(x2-x1)/(n-1);
               x:=x1;
               for i:=1 to n do
                  begin
                     s1:=funcTEY(x);
                     func1:=funcCOM(x);
                     writeln(chr(186), x:6:3, chr(179), s1:20:6, chr(179), func1:20:6, chr(186));
                     x:=x+dx;
                  end;
               write (chr(200));
               for i:=1 to 48 do write(chr(205));
               writeln (chr(188));
               readkey;
               clrscr;
   end;