Построить график функции

uses crt,graphABC;
function Y(x:real):real;
begin
Y:=3*x-4*ln(x)-5;
end;
var a,b,x,h,mx,my:real;
    n,x0,y0,i:integer;
    s:string;
begin
repeat
write('Введите количество точек от 10 до 20 n=');
readln(n);
until n in [10..20];
clrscr;
hidecursor;
setwindowsize(700,500);
centerwindow;
x0:=50;//начало координат на экране
y0:=windowheight div 2;
a:=2;
b:=4;//интервал по x
h:=(b-a)/(n-1);
mx:=(windowwidth-x0-30)/(b-a);//масштаб по Х
if abs(Y(a))<Y(b) then my:=(y0-50)/Y(b)
else my:=(y0-50)/abs(Y(a));//по У
line(x0,y0,windowwidth,y0);//оси
line(x0,0,x0,windowheight);
for i:=1 to n do//максимальное количество засечек в одну сторону
 begin
  line(x0+round(((a-2)+i*h)*mx),y0-3,x0+round(((a-2)+i*h)*mx),y0+3); //засечки на оси Х
  //подпись оси Х
  str((a+i*h):0:1,s);
  textout(x0+round(((a-2)+i*h)*mx),y0+10,s);
  line(x0-3,y0-round(i*my/2),x0+3,y0-round(i*my/2)); //засечки на оси Y
  line(x0-3,y0+round(i*my/2),x0+3,y0+round(i*my/2));
  str(i/2:0:1,s);//подпись оси Y
  textout(x0-35,y0-round(i*my/2)-5,s);
  textout(x0-40,y0+round(i*my/2)-5,'-'+s);
 end;
//центр
textout(x0-10,y0-5,'0');
textout(x0+5,y0+10,'2.0');
//подписи концов осей
textout(windowwidth-20,y0-20,'X');
textout(x0+10,10, 'Y');
//график
x:=a;
moveto(x0+round((x-2)*mx),y0-round(Y(x)*my));
for i:=0 to n-1 do
 begin
  setpencolor(clRed);
  x:=a+i*h;
  lineto(x0+round((x-2)*mx),y0-round(Y(x)*my));
  setpencolor(clBlue);
  circle(x0+round((x-2)*mx),y0-round(Y(x)*my),2);
 end;
//название
setfontcolor(clRed);
textout(300,10,'Y=3x-4lnx-5');
textout(300,30,'интервал [2;4] n='+inttostr(n));
end.