Задача на ряд Тейлора - не могу найти ошибку

[_NooB_]

Здравствуйте. Задание: Вычислить и вывести на экран на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от Хнач до Хкон с шагом h с точностью e.
Таблица должна содержать значение аргумента, функции и количество просуммированных членов ряда.
Пример: e^x=1+x+x^2/2!+x^3/3!+...+x^n/n! (Прошу прощения, что вручную)

Сама программа с ошибкой - не могу найти ошибку:
Program name;
var xk,xn,h,e:real;
x,fx,fx1,s,a:real;
i,j,n:integer;
BEGIN
writeln('Vvedite xk,xn,h,e');
readln(xk,xn,h,e);
writeln('Vi4islit funkcii s pomosiu rada Teilora');
writeln;
writeln('__________')
writeln(' Nn X fx fx1 n ');
writeln;
n:=trunc((xk-xn)/h)+1;
For i:=1 to n do
begin
x:-xn+(j-1)*h;
s:=1;
a:=1;
j:=1;
repeat
writeln(a:10:2,j:10);
readln;
a:=a*x/j;
s:=s+a;
inc(j);
until a>e;
fx:=s;
fx1:=exp(x);
writeln(' ',i:5,' ',x:8:2,' ',fx:8:3,' ',fx1:8:3,' ',j:5);
end;
writeln('__________');
readln;
end.