Что то не понимаю как этот код работает?

[Denis19061989]

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

procedure row(x,e:real; var res:real;var it:integer);
var ch,z:real;
begin
res:=1;
it:=1;
ch:=x;
z:=1;
while abs(ch/z)>e do
begin
res:=res+ch/z;
it:=it+1;
ch:=ch*x;
z:=z*it;
end;
end;
var xn,xk,dx:real;
eps:real;
i:integer;
s:real;
begin
write('e=');readln(eps);
write('Xn=');readln(xn);
write('Xk=');readln(xk);
write('dX=');readln(dx);
Writeln('Разложение в ряд Тейлора exp(x)');
writeln('x':5,'s':8,'i':5,'eps(x)':9);
while xn<xk do
begin
row(xn,eps,s,i);
writeln(xn:6:3,s:8:3,i:4,exp(xn):8:3);
xn:=xn+dx;
end;
end.