Построить графики заданных функций и залить ограниченную данными функциями область цветом

uses graph;
function F1(x:real):real;
begin
F1:=4-x*x;
end;
function F2(x:real):real;
begin
F2:=x*x-2*x;
end;
var xn,xk,max,min,mx,my,dx:real;
    x,x1,x2:real;
    n,x0,y0,i:integer;
    s:string;
begin
x0:=0;
initgraph(x0,y0,'');
xn:=-4;xk:=4;{интервал по Х}
{найдем максимум и минимум для масштаба по У
а также абциссы точек пересечения графиков х1,х2}
x:=xn;
max:=F1(xn);min:=F1(xn);
dx:=0.001;
while x<=xk+dx do
 begin
  if F1(x)>max then max:=F1(x);
  if F2(x)>max then max:=F2(x);
  if F1(x)>max then max:=F1(x);
  if F2(x)>max then max:=F2(x);
  if abs(F1(x)-F2(x))<dx then
  if x<0 then x1:=x else x2:=x;
  x:=x+dx;
 end;
x0:=getmaxX div 2;
mx:=(x0-30)/xk;{масштаб по Х}
y0:=getmaxY div 2;
if max>-min then my:=(y0-20)/max{по У}
else  my:=-(y0-20)/min;
n:=round(xk);{количество засечек по осям}
if max/5>xk then n:=round(max/5)+1;
if -min/5>xk then n:=round(-min/5)+1;
setbkcolor(15);{цвет фона}
setcolor(8);{цвет линий}
line(0,y0,getmaxX,y0);{оси}
line(x0,0,X0,getmaxY);
for i:=1 to n do{максимальное количество засечек в одну сторону}
  begin
    line(x0-3,y0-round(i*my*5),x0+3,y0-round(i*my*5));{засечки на оси У}
    line(x0-3,y0+round(i*my*5),x0+3,y0+round(i*my*5));
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); {засечки на оси Х}
    line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3);
    {подпись оси У}
    str(i*5,s);
    outtextXY(x0-35,y0-round(i*my*5),s);{соответственно засечкам}
    outtextXY(x0-35,y0+round(i*my*5),'-'+s);
    {подпись оси Х}
    str(i,s);
    outtextXY(x0+round(i*mx),y0+10,s);
    outtextXY(x0-round(i*mx),y0+10,'-'+s);
  end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+5,10, 'Y');
{графики}
x:=xn;
while x<=xk do
 begin
  putpixel(x0+round(x*mx),y0-round(F1(x)*my),1);
  putpixel(x0+round(x*mx),y0-round(F2(x)*my),4);
  x:=x+dx;
 end;
{название}
outtextXY(x0+50,20,'Grafiki functij');
outtextXY(x0+70,40,'y=4-x^2');
outtextXY(x0+70,60,'y=x^2-2x');
outtextXY(x0+50,80,'na intervale [-4;4]');
{область перекрытия}
setcolor(10);
x:=x1;{рисуем линию по 1 графику}
moveto(x0+round(x*mx),y0-round(F1(x)*my));
while x<=x2 do
 begin
  lineto(x0+round(x*mx),y0-round(F1(x)*my));
  x:=x+dx;
 end;
{то же по 2}
x:=x1;
moveto(x0+round(x*mx),y0-round(F1(x)*my));
while x<=x2 do
 begin
  lineto(x0+round(x*mx),y0-round(F2(x)*my));
  x:=x+dx;
 end;
{заливаем}
setfillstyle(1,10);
floodfill(x0,y0-3,10);
readln
end.