Вычислить и вывести на экран в виде таблицы значения функции, заданной рядом Тейлора

[NickNickSin]

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от значения х_нач до х_кон с шагом dx с точностью Экспоненты. Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда.

[newerow1989]

function step(x:real;n:integer):real;
var i:integer;
begin
   Result:=1;
   For i:=1 to n do
      Result:=Result*x;
end;

function f(x:real;n:integer):real;
begin
   Result:=step(x,2*n+1)/(2*n+1);
end;

const dx=0.01;
      x_nach=-0.99;
      x_kon=0.99;
      n=100;
var x,s:real;
    i:integer;
begin
   x:=x_nach;
   Repeat
      s:=0;
      For i:=0 to n do
         s:=s+f(x,n);
      Writeln(x:5:5,'  ',s);
      x:=x+dx;
   Until x>x_kon;
   Readln;
end.

Сойдет?