ПОМОГИТЕ исправить ошибку в программе

[SYL@R]

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:\ Program Files\Free Pascal\';
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:=1.5;
setcolor(15);
line(0,y0,640,y0); {osi koordinat}
line(x0,0,x0,480); {osi koordinat}
x1:=2; {interval}
x2:=9; {interval}
dx:=0.001; {shag}
x:=x1;
while (x<x2) do
begin
u:=50;
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');
abs(y)=exp(x*ln(3))-50 {funkciia}
px:=x0+round(x*mx);
py:=y0-round(y*my);
putpixel(px,py,15);
x:=x+dx;
end;
readln;
closegraph;
end.
ругается на эту строчку
abs(y)=exp(x*ln(3))-50 {funkciia}
ошибка такая lllegal expression

[alex_fcsm]

y:=abs(exp(x*ln(3))-50) {funkciia} - Сравни со своим