Подскажите, что неверно написано?..

[katris]

Задание такое: Вычислить и вывести на экран значения функции, заданной с помощью ряда Тейлора на интервале от х нач. до х кон. с шагод дельта х с точность Е.

program Project21;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var xk,dx,E,x,n:real; S,H,f:extended; a:integer;


  begin

  writeln ('xn='); read (x);
  writeln ('xk='); read (xk);
  writeln ('dx='); read (dx);



  while x<=xk do
    begin

    S:=x;
    H:=x;
    E:=0.001;
    a:=1;
    n:=n+1;
    F:=1;

    while (1/a)>=E do
    begin
       f:=f*(n+1)*(n+2);
       H:=H*sqr(x);
       if (a mod 2 = 0) then S:=S+(H/f)
       else S:=S-(H/f);
       a:=a+1;

      end;
    writeln (f, h);
    writeln ('x=',x:4:2,' F=',S:4:2,' N=',n:4:1);

    x:=x+dx;
    readln;
        end;
readln;

end.

Замечание модератора: Используйте тег [CODE]