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

uses graphABC;
const
x1=-2*pi;//начало и конец графика в реальных значениях
x2=2*pi;
function F(x:real):real;
begin
F:=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(0);//масштаб по Y
n:=13;//количество делений по осям в 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(,x)*my),clRed);
  x:=x+dx; //наращиваем х
 end;
setfontcolor(clRed);
textout(100,20,'График функции Y=cosx');
textout(100,40,'на интервале [-2pi;2pi]');
end.

x:=x1;// х принимает значение левой границы диапазона х=-2pi
..................................
setpixel(x0+round(x*mx),y0-round(F(,x)*my),clRed)//точка при данном  х и значении функции F(x) 
                                                                    //в экранных координатах, цвет красный

//график
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.

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);