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

uses graphABC;
const
x1=-3;//начало и конец графика в реальных значениях
x2=3;
function F(a,x:real):real;
begin
F:=a*sin(cos(x));
end;
var mx,my,x,dx:real;
    x0,y0,i,n:integer;
    s:string;
begin
x0:=windowwidth div 2;//начало координат по оси Х
y0:=windowheight div 2; //по оси Y
mx:=(x0-30)/x2;//масштаб по Х
my:=(y0-50)/F(1.5,0);//масштаб по Y
n:=6;//количество делений по осям в 1 сторону
line(20,y0,windowwidth-20,y0); //ось Х
line(x0,20,x0,windowheight-20); //ось У
for i:=1 to n do
 begin
  line(x0-3,y0-round(i*my/2),x0+3,y0-round(i*my/2));//засечки на оси У
  line(x0-3,y0+round(i*my/2),x0+3,y0+round(i*my/2));
  line(x0+round(i*mx/2),y0+3,x0+round(i*mx/2),y0-3); //засечки на оси Х
  line(x0-round(i*mx/2),y0+3,x0-round(i*mx/2),y0-3);
  str(i/2:0:1,s);
  //подпись оси У
  textout(x0-20,y0-round(i*my/2),s);{соответственно засечкам}
  textout(x0-25,y0+round(i*my/2),'-'+s);
  //подпись оси Х
  textout(x0+round(i*mx/2),y0+10,s);
  textout(x0-round(i*mx/2),y0+10,'-'+s);
  end;
//центр
textout(x0+5,y0+10,'0');
//подписи концов осей
textout(windowwidth-30,y0-20,'X');
textout(x0+10,10, 'Y');
//график
x:=x1;
dx:=0.001;
while x<=x2 do
 begin
  setpixel(x0+round(x*mx),y0-round(F(-1,x)*my),clRed);
  setpixel(x0+round(x*mx),y0-round(F(0.5,x)*my),clBlue);
  setpixel(x0+round(x*mx),y0-round(F(1,x)*my),clGreen);
  setpixel(x0+round(x*mx),y0-round(F(1.5,x)*my),clMaroon);
  x:=x+dx; //наращиваем х
 end;
textout(80,20,'График функции Y=Asin(cosx)');
setfontcolor(clRed);
textout(100,40,'A=-1');
setfontcolor(clBlue);
textout(100,60,'A=0.5');
setfontcolor(clGreen);
textout(100,80,'A=1');
setfontcolor(clMaroon);
textout(100,100,'A=1.5');
end.