Составить программу для построения графика функции

uses crt,graph;
function F(x:real):real;
begin
F:=2/(sqr(x)+1);
end;
var
xn,xk:real;
x,y,hx:real;
mx,my:real;
px,py:integer;
w,h,x0,y0,dx,dy:integer;
grD,grM,i:integer;
s,s1:string;
begin
clrscr;
writeln('                      1');
writeln('Grafik functii Y= ---------');
writeln('                     cosx');
writeln;
write('Nachalo intervala xn=');
readln(xn);
repeat
write('Konec intervala xk>xn =');
readln(xk);
until xk>xn;
grD:=detect;
initgraph(grD,GrM,'');
Y0:=getmaxY div 2 + 180;
w:=580;
h:=y0-20;
if xn<=0 then mx:=530/(xk-xn)
else mx:=580/xk;
my:=(y0-220)/1;
dx:=round(mx/2);
dy:=round(my/10);
if xn>=0 then X0:=30 else x0:=30-round(xn*mx);
SetBkColor(black);
setlinestyle(1,0,0);
Setcolor(green);
for i:=1 to 20 do
begin
line(10,y0-i*dy,630,y0-i*dy);
line(10,y0+i*dy,630,y0+i*dy);
line(x0+i*dx,0,x0+i*dx,480);
line(x0-i*dx,0,x0-i*dx,480);
 
if i<10 then
begin
str(i,s);
outtextXY(x0-25,y0-i*dy,'0.'+s);
end
else
begin
str(i div 10,s);
str(i-10,s1);
outtextXY(x0-25,y0-i*dy,s+'.'+s1);
end;
 
str(i,s);
outtextXY(x0-30,y0+i*dy-10,'-0.'+s);
 
str(i div 2,s1);
if odd(i) then s1:=s1+'.5'
else s1:=s1+'.0';
outtextXY(x0+i*dx,y0+10,s1);
 
str(i div 2,s1);
if odd(i) then s1:='-'+s1+'.5'
else s1:='-'+s1+'.0';
outtextXY(x0-i*dx,y0+10,s1);
end;
outtextXY(x0+5,y0+10,'0');
 
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+10,5, 'Y');
setlinestyle(0,0,1);
SetColor(green);
line(0,y0,640,y0);
line(x0,480,x0,0);
hx:=0.001;
x:=xn;
 
while x<=xk do
begin
 
px:=x0+round(x*mx);
 
y:=F(x);
py:=y0-round(y*my);
Putpixel (px,py,4);
x:=x+hx;
end;
readln;
 
closegraph
end.