Метод касательной (Ньютона). Нужно исправить программу

Program kasat;
var a,b,x,eps:real;n:integer; 
function f (x:real):real;
begin
f:=sqr(x)*x-(12*x)+9; 
end;
function f1 (x:real):real;
begin
f1:=3*sqr(x)-12; 
end;
Procedure kas (a,b,eps:real;var ct,cp:real);
begin
cp:=a;
ct:=cp-f(cp)/f1(cp);
n:=1;
while abs(cp-ct)>=eps
do
begin
cp:=ct;
ct:=cp-f(cp)/f1(cp);
n:=n+1;
writeln ((cp+ct)/2);
writeln('n=');
end.

Program kasat;
var a,b,x,eps:real;n:integer;
function f (x:real):real;
begin
f:=sqr(x)*x-(12*x)+9;
end;
function f1 (x:real):real;
begin
f1:=3*sqr(x)-12;
end;
Procedure kas (a,b,eps:real);
var cp,ct:real;
begin
cp:=a;
ct:=cp-f(cp)/f1(cp);
n:=1;
while abs(cp-ct)>=eps do
 begin
  cp:=ct;
  ct:=cp-f(cp)/f1(cp);
  n:=n+1;
 end;
writeln ((cp+ct)/2:0:5);
end;
begin
write('Введите точность eps=');
readln(eps);
writeln('Корни уравнения:');
//графически выделяем 2 интервала с корнями
kas(0.5,1.5,eps);
kas(2.5,3.5,eps);
end.

Program kasat;
var a,b,x,x1,eps:real;n:integer;
function f (x:real):real;
begin
f:=sqr(x)*x-(12*x)+9;
end;
function f1 (x:real):real;
begin
f1:=3*sqr(x)-12;
end;
Procedure kas (a,b,eps:real);
var cp,ct:real;
begin
x:=a;
x1:=x-f(x)/f1(x);
n:=1;
while abs(x-x1)>=e do
 begin
  x:=x1;
  x1:=x-f(x)/f1(x);
  n:=n+1;
 end;
writeln ((x+x1)/2:0:5);
end.

{===============================================================================
              Решение уравнений методом Ньютона (касательных)
--------------------------------------------------------------------------------
Метод Ньютона (касательных) основан на замене F(x) в начальной точке приближения
x = x0 касательной, пересечение которой с осью x даёт приближение x1, и т.д.
Таким образом , итерационный процесс схождения к корню реализуется формулой
                       Xn-1 = Xn - F(Xn) / F'(Xn),
до тех пор, пока соблюдается условие |Xn+1 - Xn| >= Eps.
В качестве X0 выбирают тот конец отрезка [a,b], на котором знаки F(X0) и F''(X0)
совпадают.
--------------------------------------------------------------------------------
В данной программе происходит вычисление функции
          F(Xn) / F'(Xn) = (x - sin x - 0.25) / (1 - cos x)
что соответствует решению уравнения F(x) = x - sin x - 0.25 = 0.
Поскольку F''(x) = sin x > 0 и F(x) > 0 при x = 1.2, это значение и будет взято
в качестве начального приближения.
===============================================================================}
function f(x : Real) : Real;
begin
  Result := (x - sin(x) - 0.25) / (1 - cos(x));
end;
 
const
  De = 10;
  Eps = 0.000000001;
  X0 = 1.2;
  
var
  X : Real;
  Step : Integer;
  
begin
  X := X0;
  WriteLn('Начальное значение: ', X :0:De);
  Step := 0;
  repeat
    X := X - f(X);
    Inc(Step);
    WriteLn('Шаг ', Step, ' - значение: ', X :0:De);
  until Abs(f(X)) < Eps;
  WriteLn('Корень = ', X :0:De);
  WriteLn('Проверка: x - sin x - 0.25 = ', x - sin(x) - 0.25 :0:De);
end.