Не выводится график функции

Program test;
uses crt, graphABC;
const
maxx=500;
maxy=350;
eps=0.001;
step=0.01;
var
dr,md,ercode,xb,yb:integer;
h,l,f1,f2,x,y,xmax,ymax,x3:real;
x1,x2,a,b,e,k,c,d:integer;
s:string;
function f(x:real):real;
begin
f:=power(2.1*x,5.17)*exp((-1.3)*x);
end;
begin
clrscr;
a:=1;
b:=10;
repeat
l:=b-a;
x1:=round(a+0.618*l);
x2:=round(a+0.382*l);
f1:=f(x1);
f2:=f(x2);
if f(x1)<f(x2) then
b:=x1
else if f(x1)>f(x2) then
a:=x2
else
begin
a:=x1;
b:=x2;
end;
xmax:=a;
ymax:=f(xmax);
until abs(l)<=eps;
writeln('xmax=',xmax:3:3);
writeln('ymax=',ymax:3:3);
readln;
a:=-1;
b:=10;
 
moveto(20,460);
lineto(620,460);
lineto(615,465);
line(620,460,615,455);
moveto(250,460);
lineto(255,20);
lineto(315,25);
line(250,20,245,25);
textout(625,460,'X');
textout(255,15,'Y');
e:=60;
k:=200;
c:=-22;
d:=460;
h:=10/100;
x3:=1;
textout(100,460,'1');
textout(610,460,'10');
repeat
y:=power(2.1*x,5.17)*exp((-1.3)*x);
xb:=round(e*x3+k);
yb:=round(c*y+d);
moveto(xb,yb);
lineto(xb,yb);
x3:=x3+h;
until  x3>10;
textout(250,30,'f(x)=power(2.1*x,5.17)*exp((-1.3)*x)');
str(xmax:1:1,s);
textout(250,465,'xmax='+s);
str(ymax:1:1,s);
textout(350, 465,'ymax='+s);
readln;
End.

Program test;
uses  graph;
const
maxx=500;
maxy=350;
a=1;b=10;
step=0.01;
 
 
var
dr,md,ercode:integer;
i,j:integer;
kx,x1,f1,f2,x2,l,ky:real;
x,y:real;ymax,xm:real;
s:string;
 
function f(x:real):real;
begin
f:=power(2.1*x,5.17)*exp((-1.3)*x);
end;
begin
x:=a;ymax:=f(x);xm:=x;
repeat
l:=b-a;
x1:=round(a+0.618*l);
x2:=round(a+0.382*l);
f1:=f(x1);
f2:=f(x2);
if f(x1)>f(x2) then
xm:=x1
else if f(x1)<f(x2) then
ymax:=x2
else
begin
ymax:=x1;
xm:=x2;
end;
xm:=xm;
ymax:=f(xm);
until abs(l)<=step;
writeln('xmax=',xm:3:3);
writeln('ymax=',ymax:3:3);
readln;
 {setviewport(50,400,50,400,clipoff);
setbkcolor(white);}
kx:=maxx/(b-a);
ky:=maxy/ymax;
{
SetLineStyle(0,0,3);
setcolor(blue);}
line(0,-maxy-30,0,0);
line(0,0,maxx+30,0);
line(540,-8,530,0);line(520,8,530,0);
line(-8,-370,0,-380);line(8,-370,0,-380);
{setlinestyle(1,0,1);}
for i:=1 to b do begin
line(round(i*kx),-maxy,round(i*kx),0);
str(i,s);
textout(round(i*kx),20,s);
end;
for j:=1 to round(ymax) do begin
if j mod 10=0 then begin
line(0,-round(j*ky),maxx,-round(j*ky));
str(j,s);
textout(-30,-round(j*ky),s);
end;
end;
x:=a; repeat
y:=f(x);
x:=x+step;
until(x>b);
{settextstyle(4,0,5);}
textout((maxx div 2),-360,'y=50-10x*x+100x');
{settextstyle(1,0,2);}
str(xm:1:1,s);
textout(50,30,'xmax='+s);
str(ymax:1:1,s);
textout(250,30,'ymax='+s);
readln;
end.

uses graphABC;
const
x1=1;//начало и конец графика в реальных значениях
x2=10;
eps=0.0001;//точность
function f(x:real):real;//функция
begin
f:=power(2.1*x,5.17)*exp((-1.3)*x);
end;
var a,b,r,d,z,mx,my,x,max,min,dx:real;
    x0,y0,i:integer;
    s:string;
begin
//поиск точки максимума методом золотого сечения
a:=x1;
b:=x2;
r:=(sqrt(5)-1)/2;
d:=eps/2;
max:=a+(b-a)*r;
min:=b-(b-a)*r;
if f(a)>(f(a+d)) then z:=1 else z:=-1;
while abs(b-a)>eps do
 begin
  max:=a+(b-a)*r;
  min:=b-(b-a)*r;
  if (z*f(min))<(z*f(max)) then b:=max else a:=min;
 end;
x0:=50;//начало координат по оси Х
y0:=windowheight-50;
mx:=(windowwidth-x0-40)/x2;//масштаб по Х
my:=(y0-40)/f(max);//масштаб по Y
line(20,y0,windowwidth-20,y0); //ось Х
line(x0,20,x0,windowheight-20); //ось У
for i:=1 to x2+1 do
 begin
  line(x0-3,y0-round(i*my*50),x0+3,y0-round(i*my*50));//засечки на оси У
  line(x0+round(i*mx),y0+3,x0+round(i*mx),y0-3); //засечки на оси Х
 //подпись оси У
  str(i*50,s);
  textout(x0-20,y0-round(i*my*50),s);{соответственно засечкам}
  //подпись оси Х
  str(i,s);
  textout(x0+round(i*mx),y0+10,s);
  textout(x0-round(i*mx),y0+10,'-'+s);
  end;
//центр
textout(x0+5,y0+10,'0');
//подписи концов осей
textout(windowwidth-30,y0-20,'X');
textout(x0+10,10, 'Y');
//график
x:=x1;
dx:=0.001;
while x<=x2 do
 begin
  setpixel(x0+round(x*mx),y0-round(f(x)*my),clRed);
  x:=x+dx; //наращиваем х
 end;
setbrushcolor(clBlue);
circle(x0+round(max*mx),y0-round(f(max)*my),3);
setbrushstyle(bsClear);
setfontcolor(clRed);
textout(100,20,'График функции');
textout(100,40,'Y=(2.1x)^5.17*x^-1.3');
textout(100,60,'на инт.[1;10]');
setfontcolor(clBlue);
str(max:0:4,s);
textout(x0+round(max*mx)+10,y0-round(f(max)*my)-15,'xmax='+s);
str(f(max):0:4,s);
textout(x0+round(max*mx)+100,y0-round(f(max)*my)-15,'fmax='+s);
end.