Кубическая аппроксимация. Ошибка 205. Need H.E.L.P

program metodi;
uses crt;
 Function F1(X:Real):Real;// вычисление функции
 
 Begin
       F1:=x*x*x-12*x+11;
  End;
 
 Function proizvodnF1(X:Real):Real; //вычисление производной
 
 Begin
       proizvodnF1:=x*x*3-12;
  End;
 
procedure metod_kub_ap(x0:real;shag:real;e1:real;e2:real); //метод кубической аппроксимации
var z,my,w,X_1,xST,X_2,funk1,funk2,fp1,fp2,x1,x2:real;k:real;q:integer;
    begin
 
    k:=1;
    X_1:=x0;
    X_2:=X_1;
    while proizvodnF1(X_1)*proizvodnF1(X_2)>0 do
          begin
          X_1:=X_2;
          if proizvodnF1(X_1)<0 then X_2:=X_1+shag*k
          else if proizvodnF1(X_1)>0 then X_2:=X_1-shag*k
          else begin writeln('min'); halt; end;
          k:=k*2;
          end;
 
    x1:=X_1;
    x2:=X_2;
    funk1:=F1(x1);
    funk2:=F1(x2);
    fp1:=proizvodnF1(x1);
    fp2:=proizvodnF1(x2);
    q:=1;
 
    while q=1 do
          begin
          z:=(3*(funk1-funk2)/x2-x1)+fp1+fp2;
 
          if x1<x2 then w:=sqrt(z*z-fp1*fp2)
          else if x1>x2 then w:=-sqrt(z*z-fp1*fp2);
 
          my:=(fp2+w-z)/(fp2-fp1+2*w);
 
          if my<0 then xST:=x2
          else
          if (my>=0) and (my<=1) then xST:=x2-my*(x2-x1)
          else
          if my>1 then xST:=x1;
 
          while F1(xST)>F1(x1) do
          xST:=xST+(xST-x1)/2;
 
          if (abs(proizvodnF1(xST))<=e1) and (abs((xST-x1)/xST)<=e2) then
          q:=0
          else
          begin
               if proizvodnF1(xST)*proizvodnF1(x1)<0 then
               begin
                    x2:=x1;
                    x1:=xST;
               end
               else if proizvodnF1(xST)*proizvodnF1(x2)<0 then
               x1:=xST;
          end;
          end;
    writeln('min=',xST:2:9);
end;
 
{++++++++++++++++++++++++++++++++++++++++}
 
begin
      clrscr;
      metod_kub_ap(0.1,0.001,0.001,0.003);
      readln;
      end.