Метод касательных выводит лишь один корень

program metod_kasatel;
 
uses Crt;
 
var
 
xn,xn1,a,b,c,mx,y0,x0: real;
 
function f1(x1: Real): Real; {основная функция}
 
begin
 
f1:= x1*x1*x1*(-0.5)-0.05*x1*x1+0.8*x1+0.6;
 
end;
 
function f2(x4:Real): Real; {производная от основной функции}
 
begin
 
f2:= (-1.5)*x4*x4-0.1*x4+0.8;
 
end;
 
begin {начало основной программы}
 
Clrscr;
 
a:=-5;b:=6;c:=0.00000001;
 
Writeln (' от A=',a,' до B=',b); {вывод на экран}
 
Writeln (' погрешность=',c);
 
Readln;
 
xn:=b;
 
xn1:= f1(xn);
 
y0:=f2(b);
 
while ABS (y0)<a-b do {проверка по точности вычисления корня}
 
begin {цикл}
 
xn:=xn1;
 
xn1:=f1(xn);
 
y0:= f2(xn1);
 
{печать промежуточного результата}
 
Writeln ('xn=',xn,' xn+1=',xn1,' f(xn+1)=',y0);
 
Readln;
 
end; {конец запуска цикла}
 
Writeln ('конечные значения'); {полученный результат}
 
Writeln (' xn+1=',xn1,' f(xn+1)=',y0);
 
Readln;
 
end. {конец основной программы}