Комбинированный метод хорд и касательных и график

uses crt,graph;
function f(var x:real):real;
begin
f:= X*X*X*X+X*X*X-10*X*X-34*X-26;
end;
function f1(var x:real):real;
begin
f1:= 4*x*x*x+3*x*x-20*x-34; {первая производная}
end;
function f2(var x:real):real;{вторая производная*}
begin
f2:= 12*x*x+6*x-20;
end;
function Komp(a,b,e:real):real;
var x0,e1,tmp:real;
    x11,x12:real;
    z,x6,y:real;
begin
x0:=a;
x11:=x0-f(x0)/f1(x0);
x12:=a-((b-a)*f(a)/(f(b)-f(a)));
e1:=(x11+x12)/2;
while  abs(e1-x11)>e do
 begin
  a:=x11;
  b:=x12;
  x11:= a-F(a)/f1(a);
  x12:= a-((b-a)*f(a)/(f(b)-f(a)));
  e1:=(x11+x12)/2;
 end;
Komp:=x11;
end;
var a,b,x,x1,x2,e:real;{границы интервала, значение корня, точность}
    i:integer;{счетчик циклов}
    gd,gm,x0,y0,xi,yi:integer;{переменные для работы в граф. режиме}
    min,max:real;{мин и макс для оси Y}
    mx,my:real;{массшатабы для перевода реальных координат в экранные}
    s:string[10];{строка для перевода чисел в текст для вывода на экран в граф. режиме}
begin
clrscr;
writeln('Nahozdenie kornej functii F(x)=x^4+x^3-10x^2-26');
writeln('Graphicheski opredeleny intervaly (-2;0), (3;5)');
e:=0.00001;
x1:=Komp(-2,0,e);
x2:=Komp(3,5,e);
writeln('Korni x1=',x1:0:6,'  x2=',x2:0:6);
readln;
gd:=0;
initgraph(gd,gm,'');{переходим в графический режим}
a:=-5;{интервал построения графика}
b:=5;
x0:=getmaxX div 2;{0 по Х и масштаб по Х}
mx:=(x0-30)/b;
x:=a;
max:=F(a);
min:=F(a);
while x<=b do
 begin
  if F(x)>max then max:=F(x);
  if F(x)<min then min:=F(x);
  x:=x+0.25;
 end;
y0:=round(getmaxY*max/(max-min));{0 по Y и масштаб по Y}
my:=(y0-20)/max;
{ось Х}
line(0,y0,getmaxX,y0);
outtextXY(getmaxX-10,y0-15,'X');
for i:=1 to round(b) do
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
  line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
  str(i,s);
  outtextXY(x0+round(i*mx),y0+10,s);
  outtextXY(x0-round(i*mx),y0+10,'-'+s);
 end;
{ось У}
line(x0,5,x0,getmaxY-5);
outtextXY(x0-20,5,'Y');
for i:=1 to round(b) do
 begin
  line(x0+3,y0-round(i*my*100),x0-3,y0-round(i*my*100));
  str(i*100,s);
  outtextXY(x0-10,y0-round(i*my*100),s);
  line(x0+3,y0+round(i*my*100),x0-3,y0+round(i*my*100));
  outtextXY(x0-20,y0+round(i*my*100),'-'+s);
 end;
{подписи значений корней}
settextstyle(0,1,1);
setcolor(11);
str(x1:0:6,s);
outtextXY(x0+round(x1*mx),y0-90,s);
str(x2:0:6,s);
outtextXY(x0+round(x2*mx),y0-90,s);
setlinestyle(0,1,3);
circle(x0+round(x1*mx),y0,2);
circle(x0+round(x2*mx),y0,2);
{построение графика}
x:=a;
while x<=b do
 begin
  xi:=x0+round(x*mx);
  yi:=y0-round(F(x)*my);
  putpixel(xi,yi,12);
  x:=x+0.001;
 end;
readln
end.