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

uses graph;
function F(t:real):real;
begin
if(t>=-1.5)and(t<=0) then F:=exp(1)*abs(cos(t))+exp(-t)
else if(t>=0)and(t<=2)then F:=2*exp(1-t);
end;
 
var xn,xk,x,dx,y,ymx,mx,my:real;
    x1,y1:array[1..100] of real;
    n,i,gd,gm,x0,y0:integer;
    st:string;
begin
xn:=-1.5;
xk:=2;
dx:=0.5;
ymx:=F(xn);
x:=xn;
n:=0;
while x<=xk+dx/2 do
 begin
  n:=n+1;
  x1[n]:=x;
  y1[n]:=F(x1[n]);
  if y1[n]>ymx then ymx:=y1[n];
  x:=x+dx;
 end;
 
gd:=0;
initgraph(gd,gm,'');
x0:=round(getmaxX*abs(xn)/(xk-xn));
y0:=getmaxY div 2+80;
mx:=(getmaxX-40)/n;
my:=(y0-40)/ymx;
line(20,y0,getmaxX-20,y0);
outtextXY(getmaxX-15,y0-15,'X');
line(x0,getmaxY-140,x0,20);
outtextXY(x0-15,10,'Y');
for i:=1 to n+1 do
 begin
  line(20+round(mx*(i-0.5)),y0+3,20+round(mx*(i-0.5)),y0-3);
  str(x1[i]:0:1,st);
  settextstyle(0,1,1);
  outtextXY(20+round(mx*(i-0.5)),y0+10,st);
  line(x0+3,y0-round(my*i),x0-3,y0-round(my*i));
  str(i,st);
  settextstyle(0,0,1);
  outtextXY(x0-20,y0-round(my*i),st);
 end;
x:=xn;
dx:=0.001;
while x<=xk do
 begin
  putpixel(x0+round(x*mx*2),y0-round(F(x)*my),12);
  x:=x+dx;
 end;
setcolor(15);
line(5,getmaxY-100,getmaxX-10,getmaxY-100);
line(5,getmaxY-70,getmaxX-10,getmaxY-70);
line(5,getmaxY-40,getmaxX-10,getmaxY-40);
dx:=(getmaxX-15)/(n+1);
for i:=1 to n+2 do
line(5+round(dx*(i-1)),getmaxY-100,5+round(dx*(i-1)),getmaxY-40);
outtextXY(10,getmaxY-90,'X');
setcolor(12);
outtextXY(10,getmaxY-60,'F(x)');
for i:=2 to n+1 do
 begin
  str(x1[i-1]:4:1,st);
  setcolor(15);
  outtextXY(15+round(dx*(i-1)),getmaxY-90,st);
  str(y1[i-1]:4:1,st);
  setcolor(12);
  outtextXY(15+round(dx*(i-1)),getmaxY-60,st);
 end;
readln
end.