построить ГРАФИКИ двух функций

Program Lab25;
uses Crt,Graph;
const a=-0.1; b=2*pi;h=0.1;h1=5;x0=60;y0=240;M=2;
var driver,mode,x1,y1:integer;
    x,y:real;
function f(x:real):real;
  begin
     f:=8.4+((x+2.4)*ln(abs(x))/(2*x+3)*(x+8));
  end;
begin
   clrscr; driver:=detect; initgraph(driver,mode,'');
   setcolor(brown);
   rectangle(10,10,610,460);
   setfillstyle(1,10);
   setcolor(green);
   setbkcolor(7);
   line(20,y0,600,y0);
   line(x0,440,x0,20);
   x:=a;
   y:=f(x);
   x1:=x0+trunc(M*x);
   y1:=y0+trunc(M*y);
   moveto(x1,y1);
    while x<=b do
       begin
          y:=f(x);
          y1:=y0+trunc(M*y);
          lineto(x1,y1);
          x1:=x1+h1;
          x:=x+h;
       end;
   settextstyle(0,0,1);
   outtextxy(60,245,'0');
   outtextxy(360,245,'6.3');
   outtextxy(200,380,'8.4+((x+2.4)*ln(abs(x))/(2*x+3)*(x+8))');
   setcolor(red); outtextXY(250, 40,' Programy pidgotuvav : Sidoruk Bogdan');
   setcolor(darkgray);
   outtextXY(30, 30,'Y->');
   outtextXY(550, 243,'X->');
   readln
end.