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

uses crt,graph;
function F(x:real):real;
begin
F:=-exp(-x)*cos(4*x);
end;
const xn=-1;
      xk=0;
var mx,my,dx,y1:real;
    max,x:real;
    x0,y0,i:integer;
    s:string;
begin
initgraph(x0,y0,'');
x0:=getmaxX-60;
mx:=(x0-30)/-xn;{масштаб по Х}
y0:=getmaxY div 2;
{найдем максимум функции для масштаба по У}
max:=F(xn);
x:=xn;
while x<=xk do
 begin
  if max<F(x) then max:=F(x);
  x:=x+0.01;
 end;
my:=(y0-20)/max;{по У}
line(30,y0,x0,y0);{оси}
line(x0,0,x0,getmaxY);
for i:=1 to 15 do{максимальное количество засечек в одну сторону}
 begin
  line(x0-3,y0-round(i*my/5),x0+3,y0-round(i*my/5));{засечки на оси У}
  line(x0-3,y0+round(i*my/5),x0+3,y0+round(i*my/5));
  line(x0-round(i*mx/10),y0-3,x0-round(i*mx/10),y0+3); {засечки на оси Х}
  str(i/5:0:1,s);
  {подпись оси У}
  outtextXY(x0-25,y0-round(i*my/5),s);{соответственно засечкам}
  outtextXY(x0-35,y0+round(i*my/5),'-'+s);
  {подпись оси Х}
  str(i/10:0:1,s);
  outtextXY(x0-round(i*mx/10),y0+10,'-'+s);
  end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(35,y0-10,'X');
outtextXY(x0+5,20, 'Y');
{график}
x:=xn;
dx:=0.001;
while x<=xk do
 begin
  putpixel(x0+round(x*mx),y0-round(F(x)*my),10);
  x:=x+dx;
 end;
{название}
outtextXY(getmaxX div 2-80,20,'Grafik functii y=e^-x*(-cos4x)');
outtextXY(getmaxX div 2-80,40,'na intervale [-1;0]');
readln
end.