Нарисовать графики функций

uses graphABC;
function F1(x:real):real;
begin
F1:=ln(x);
end;
function F2(x:real):real;
begin
F2:=x-5;
end;
var x,mx,my:real;
    a,b,x0,y0,i:integer;
    s:string;
begin
setwindowsize(500,500);
a:=0;//интервал по Х
b:=10;
x0:=50;//начало координат
y0:=windowheight div 2;
mx:=(windowwidth-x0-30)/b;//масштаб по Х
my:=2*(y0-30)/b;//по Y
line(0,y0,windowwidth,y0);//оси
line(x0,0,x0,windowheight);
for i:=1 to b do//создаем оси координат
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3); //засечки на оси Х
  line(x0-3,y0+round(i*my),x0+3,y0+round(i*my)); //засечки на оси Y
  line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));
  //подпись оси Х
  textout(x0+round(i*mx),y0+10,inttostr(i));
   //подпись оси Y
  textout(x0-25,y0-round(i*my),inttostr(i));
  textout(x0-20,y0+round(i*my),inttostr(-i));
 end;
//центр
textout(x0+5,y0+10,'0');
//подписи концов осей
textout(windowwidth-10,y0-15,'X');
textout(x0+5,10, 'Y');
//графики
x:=a;
while x<=b do
 begin
  if x>0 then  setpixel(x0+round(x*mx),y0-round(F1(x)*my),clBlue);
  setpixel(x0+round(x*mx),y0-round(F2(x)*my),clRed);
  x:=x+0.001;
 end;
//название
setfontsize(12);
setfontcolor(clBlue);
textout(x0+50,10,'y=ln(x)');
setfontcolor(clRed);
textout(x0+50,30,'y=x-5');
end.

uses graph;
function F1(x:real):real;
begin
F1:=ln(x);
end;
function F2(x:real):real;
begin
F2:=x-5;
end;
var x,mx,my:real;
    a,b,x0,y0,i:integer;
    s:string;
begin
initgraph(x0,y0,'');
a:=0;//интервал по Х
b:=10;
x0:=50;//начало координат
y0:=getmaxY div 2;
mx:=(getmaxX-x0-30)/b;//масштаб по Х
my:=2*(y0-30)/b;//по Y
line(0,y0,getmaxX,y0);//оси
line(x0,0,x0,getmaxY);
for i:=1 to b do//создаем оси координат
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3); //засечки на оси Х
  line(x0-3,y0+round(i*my),x0+3,y0+round(i*my)); //засечки на оси Y
  line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));
  //подпись оси Х
  str(i,s);
  outtextXY(x0+round(i*mx),y0+10,s);
   //подпись оси Y
  outtextXY(x0-25,y0-round(i*my),s);
  outtextXY(x0-20,y0+round(i*my),'-'+s);
 end;
//центр
outtextXY(x0+5,y0+10,'0');
//подписи концов осей
outtextXY(getmaxY-10,y0-15,'X');
outtextXY(x0+5,10, 'Y');
//графики
x:=a;
while x<=b do
 begin
  if x>0 then  putpixel(x0+round(x*mx),y0-round(F1(x)*my),9);
  putpixel(x0+round(x*mx),y0-round(F2(x)*my),12);
  x:=x+0.001;
 end;
//название
setcolor(9);
outtextXY(x0+50,10,'y=ln(x)');
setcolor(12);
outtextXY(x0+50,30,'y=x-5');
readln
end.

Programm aaaa;
uses Graph;

uses graph;
function f1(x:real):real;
begin
f1:=ln(x);
end;
function f2(x:real):real;
begin
f2:=x-5;
end;
var x,mx,my:real; a,b,x0,y0,i:integer; s:string;
begin
initgraph(x0,y0,' ');
a:=0;
b:=10;
x0:=50;
y0:=getmaxy div 2;
mx:=(getmaxx-x0-30)/b;
my:=2*(y0-30)/b;
line(0,y0,getmaxx,y0);
line(x0,0,x0,getmaxy);
for i:=1 to b do
begin
line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));
line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));
str(i,s);
outtextxy(x0+round(i*mx),y0+10,s);
outtextxy(x0-25,y0-round(i*my),s);
outtextxy(x0-20,y0+round(i*my),'-'+s);
end;
outtextxy(x0+5,y0+10,'0');
outtextxy(getmaxy-10,y0-15,'X');
outtextxy(x0+5,10,'Y');
x:=a;
while x<=b do
begin
if x>0 then putpixel(x0+round(x*mx),y0-round(f1(x)*my),9);
putpixel(x0+round(x*mx),y0-round(f2(x)*my),12);
x:=x+0.001;
end;
setcolor(9);
outtextxy(x0+50,10,'y=Ln(x)');
setcolor(12);
outtextxy(x0+50,30,'y=x-5');
readln;
end.