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

uses graph,crt;
function F1(x:real):real;
begin
F1:=x*x-4;
end;
function F2(x:real):real;
begin
F2:=sqr(x-3)/2;
end;
function F3(x:real):real;
begin
F3:=-sqrt(9-x*x);
end;
var max,min,mx,my,h:real;
    x,y,x1,y1,x2,y2,x3,y3:real;
    a,b,x0,y0,i,n:integer;
    s:string;
begin
initgraph(x0,y0,'');
a:=1;
b:=3;{Ё*вҐаў*« Ї® •}
min:=F1(a);
max:=min;
x:=a;
while x<=0 do
 begin
  if F1(x)<min then min:=F1(x);
  if F2(x)<min then min:=F2(x);
  if F3(x)<min then min:=F3(x);
  if F1(x)>max then max:=F1(x);
  if F2(x)>max then max:=F2(x);
  if F3(x)>max then max:=F3(x);
  x:=x+0.01
 end;
if abs(min)>max then max:=abs(min);
n:=round(max);
x0:=50;
mx:=(getmaxX-x0-30)/(b-a);{¬*бив*Ў Ї® •}
y0:=getmaxY div 2;
my:=(y0-30)/max;
line(0,y0,getmaxX,y0);{®бЁ}
line(x0,0,X0,getmaxY);
for i:=1 to 2*n do{¬*ЄбЁ¬*«м*®Ґ Є®«ЁзҐбвў® §*бҐзҐЄ ў ®¤*г бв®а®*г}
 begin
  line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));{§*бҐзЄЁ ** ®бЁ “}
  line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));
  {Ї®¤ЇЁбм ®бЁ “}
  str(i,s);
  outtextXY(x0-30,y0-round(i*my),s);{ᮮ⢥вб⢥**® §*бҐзЄ*¬}
  outtextXY(x0-40,y0+round(i*my),'-'+s);
  line(x0+round((i-2)*mx/2),y0-3,x0+round((i-2)*mx/2),y0+3); {§*бҐзЄЁ ** ®бЁ •}
  {Ї®¤ЇЁбм ®бЁ •}
  str(i/2:0:1,s);
  outtextXY(x0+round((i-2)*mx/2),y0+10,s);
 end;
{жҐ*ва}
{Ї®¤ЇЁбЁ Є®*ж®ў ®бҐ©}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+5,10, 'Y');
{Ја*дЁЄЁ}
x:=a;
while x<b-0.001 do
 begin
  putpixel(x0+round(x*mx-mx),y0-round(F1(x)*my),12);
  putpixel(x0+round(x*mx-mx),y0-round(F2(x)*my),9);
  putpixel(x0+round(x*mx-mx),y0-round(F3(x)*my),14);
  x:=x+0.001;
  if abs(F1(x)-F3(x))<0.001 then
   begin
    x1:=x;
    y1:=F1(x)
   end;
  if abs(F1(x)-F2(x))<0.0001 then
   begin
    x2:=x;
    y2:=F1(x)
   end;
 end;
x3:=3;y3:=0;{Їа*ў*п Ё®зЄ* *Ґ ўлзЁб«пҐвбп}
writeln('x1=',x1:0:2,' y1=',y1:0:2);
writeln('x2=',x2:0:2,' y2=',y2:0:2);
writeln('x3=',x3:0:2,' y3=',y3:0:2);
{**§ў**ЁҐ}
setcolor(12);
outtextXY(x0+100,10,'y=-x^2-4');
setcolor(9);
outtextXY(x0+100,30,'y=(x-3)^2/2');
setcolor(14);
outtextXY(x0+100,50,'y=-sqrt(9-x^2)');
h:=10/my;
n:=round((y2-y1)/h);
for i:=n downto 0 do
 begin
  x:=a;
  while x<=x3 do
   begin
    x:=x+0.001;
    y:=y1+h*(n-i);
    if (x>x1)and(x<x3)and(y>F3(x))and(y<F1(x))and(y<F2(x))
    then putpixel(x0+round(x*mx-mx),y0-round(y*my),13)
   end;
  delay(400)
 end;
readln
end.

if abs(F1(x)-F3(x))<0.001 then
   begin
    x1:=x;
    y1:=F1(x)
   end;
  if abs(F1(x)-F2(x))<0.0001 then
   begin
    x2:=x;
    y2:=F1(x)
   end;
 end;
x3:=3;y3:=0;

h:=10/my; //шаг между линиями по вертикали
n:=round((y2-y1)/h);//количество линий
for i:=n downto 0 do //рисуем линии снизу вверх
 begin
  x:=a; //левый край
  while x<=x3 do//пока не правый
   begin
    x:=x+0.001; //идем по Х
    y:=y1+h*(n-i);//вычисляем у относительно у1
    //если точка в области
    if (x>x1)and(x<x3)and(y>F3(x))and(y<F1(x))and(y<F2(x))
    //рисуем точками линию
    then putpixel(x0+round(x*mx-mx),y0-round(y*my),13)
   end;
  delay(400) //задержка
 end;