Построить графики функций разных цветов

uses graphABC;
function F1(x:real):real;
begin
F1:=2*sin(x)/cos(x);
end;
function F2(x:real):real;
begin
F2:=2*x+1;
end;
var xc,yc,n,i:integer;
    x,dx,max,min,z,y,mx,my:real;
    s:string;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
line(0,yc,windowwidth,yc);
line(xc,0,xc,2*yc);
textout(xc+5,yc+10,'0');
//возьмем интервал [-pi;pi]
x:=-pi;
dx:=0.1;
max:=F2(x);min:=F2(x);//найдем макс и мин для масштаба по оси У
while x<=pi do
 begin
  if F2(x)>max then max:=F2(x);//для первой искать не будем, там бесконечность
  if F2(x)<min then min:=F2(x);
  x:=x+dx;
 end;
if max>abs(min) then z:=max
else z:=abs(min);
mx:=(windowwidth -40)/(2*pi);//масштаб по Х
my:=(yc-40)/z;//по У
if z>pi then n:=round(z)+1 //кол. засечек по осям в 1 сторону
else n:=round(pi)+1;
for i:=1 to n do
 begin
  line(xc+round(i*mx),yc-3,xc+round(i*mx),yc+3);//засечки по Х
  line(xc-round(i*mx),yc-3,xc-round(i*mx),yc+3);
  line(xc-3,yc-round(i*my),xc+3,yc-round(i*my));//по У
  line(xc-3,yc+round(i*my),xc+3,yc+round(i*my));
  str(i,s);
  textout(xc+round(i*mx),yc+10,s); //подписи по Х
  textout(xc-round(i*mx),yc+10,'-'+s);
  textout(xc-15,yc-round(i*my),s);//подписи по У
  textout(xc-15,yc+round(i*my),s);
 end;
//грвфики
x:=-pi;
dx:=0.001;
while x<=pi do
 begin
  setpixel(xc+round(x*mx),yc-round(F2(x)*my),clRed);
  if abs(cos(x))<>0 then
  setpixel(xc+round(x*mx),yc-round(F1(x)*my),clBlue);
  //точки пересечения
  if abs(F1(x))<dx then //первый график - ось Х
   begin
    setpencolor(clBlue);
    circle(xc+round(x*mx),yc-round(F1(x)*my),4);
    floodfill(xc+round(x*mx),yc-round(F1(x)*my),clBlue);
   end;
  if abs(F2(x))<dx then //второй график - ось Х
   begin
    setpencolor(clRed);
    circle(xc+round(x*mx),yc-round(F2(x)*my),4);
    floodfill(xc+round(x*mx),yc-round(F2(x)*my),clRed);
   end;
  if abs(F2(x)-F1(x))<2*dx then //1 и 2 графики
   begin
    setpencolor(clAqua);
    circle(xc+round(x*mx),yc-round(F2(x)*my),4);
    floodfill(xc+round(x*mx),yc-round(F2(x)*my),clAqua);
   end;
  x:=x+dx;
 end;
setfontsize(10);
textout(350,300,'Графики функций');
setfontcolor(clBlue);
textout(350,320,'y=2sinx/cosx');
setfontcolor(clRed);
textout(350,340,'y=2x+1');
setfontcolor(clBlack);
textout(350,360,'на интервале [-pi;pi]');
end.