Построить график функции y-cosx , или y=sinx - Pascal ABC

//график
x:=x1;
dx:=0.001;
while x<=x2 do
 begin
  setpixel(x0+round(x*mx),y0-round(F(,x)*my),clRed);
  x:=x+dx; //наращиваем х
 end;
//маркеры
x:=-6;
dx:=0.5;
setpencolor(clBlue);
setbrushcolor(clBlue);
while x<=6 do
 begin
  circle(x0+round(x*mx),y0-round(F(,x)*my),2);
  x:=x+dx; //наращиваем х
 end;
setbrushstyle(bsClear);
textout(100,20,'График функции Y=cosx');
textout(100,40,'на интервале [-2pi;2pi]');
end.