Программа запускается, но не выводит график функции

Program Graph_14_1;
uses graph;
var
u,l,p:integer;
k:byte;
x,dx,x1,x2,y:real;
x0,y0,px,py:integer;
mx,my:real;
driver,mode,errcode:integer;
path:string;
procedure Grid(X1,Y1,X2,Y2:integer;k:real);
var i:integer;
begin
setcolor(9);
repeat
l:=l+20;
p:=p+20;
line(0+l,10,0+l,470);
line(20,0+p,620,0+p);
until l=620;
end;
begin
k:=30;
driver:=vga;
mode:=vgahi;
path:='C:\FPC\2.2.0\';
initgraph(driver,mode,path);
errcode:=graphResult;
Grid(120,60,520,420,K);
if errcode<>grok then
begin
writeln('Error');
readln;
end;
x0:=320;
y0:=240;
mx:=5;
my:=3;
setcolor(15);
line(0,y0,640,y0);   {osi koordinat}
line(x0,0,x0,480);   {osi koordinat}
x1:=8;              {interval}
x2:=9;               {interval}
dx:=0.1;           {shag}
x:=x1;
while (x<x2) do
begin
setcolor(15);
outtextxy(350,10,'');
outtextxy(350,20,'programma realizuet grafik funkcii');
outtextxy(350,30,'');
outtextxy(10,40,'');
outtextxy(325,245,'0');
outtextxy(343,245,'1');
outtextxy(363,245,'2');
outtextxy(383,245,'3');
outtextxy(403,245,'4');
outtextxy(298,245,'-1');
outtextxy(278,245,'-2');
outtextxy(258,245,'-3');
outtextxy(238,245,'-4');
outtextxy(323,262,'-1');
outtextxy(323,282,'-2');
outtextxy(323,302,'-3');
outtextxy(323,322,'-4');
outtextxy(325,222,'1');
outtextxy(325,202,'2');
outtextxy(325,182,'3');
outtextxy(325,162,'4');
outtextxy(325,142,'5');
outtextxy(325,122,'6');
outtextxy(325,102,'7');
setcolor(15);
line(320,0,325,5);
line(320,0,315,5);
line(640,240,635,235);
line(640,240,635,245);
outtextxy(620,243,'x');
outtextxy(325,20,'y');
y:=abs(exp(x*ln(3))-50);             {funkciia}
px:=x0+round(x*mx);
py:=y0-round(y*my);
putpixel(px,py,15);
x:=x+dx;
 
readln;
closegraph;
 
end;
 
end.

uses graph;
const
x1=-6;
x2=6;
var
x,dx,y1,y2,y:real;
mx,my,x0,y0,grD,px,py1,py2,grM,i,c:integer;
s,s1:string;
begin
grD:=detect;
initgraph(grD,GrM,'');
X0:=getmaxX div 2; {по середине}
Y0:=getmaxY div 2+20;{немного ниже середины, т.к. точка пересечения=+20}
mx:=52; my:=3; {коэффициенты по осям подогнаны под реальный график}
SetBkColor(7); {цвет фона}
setlinestyle(0,0,1);{сплошная линия}
SetColor(1);{цвет линий осей}
line(10,y0,630,y0); {ось Х}
line(x0,0,x0,480); {ось У}
setlinestyle(1,0,0);  {пунктирная линия}
Setcolor(9);  {цвет сетки}
for i:=1 to 13 do   {максимальное количество засечек в одну сторону}
   begin
    line(0,y0-i*19,630,y0-i*19);     {засечки на оси У, подогнал под график}
    line(0,y0+i*21,630,y0+i*21);
    line(x0+i*50,0,x0+i*50,480); {засечки на оси Х}
    line(x0-i*50,0,x0-i*50,480);
    {подпись оси У}
    str((i)*10,s);
    str(-i*10,s1);
    outtextXY(x0+4,y0+i*21,s1);{соответственно засечкам}
    outtextXY(x0+4,y0-i*19,s);
    {подпись оси Х}
    str(i,s);
    str(-i,s1);
    outtextXY(x0+i*50,y0+5,s);
    outtextXY(x0-i*50,y0+5,s1);
   end;
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,5, 'Y');
dx:=0.001;
x:=x1;
while x<=x2 do
   begin
     px:=x0+round(x*mx); {изменение по оси Х}
     y1:=exp(x)*ln(3)-50; {первый график}
     y2:=50-exp(x)*ln(3); {второй график}
     py1:=y0-round(y1*my)-40;
     Putpixel (px,py1,4);
     py2:=y0-round(y2*my)-40;
     Putpixel (px,py2,4);
     x:=x+dx;
   end;
readln;
closegraph
end.