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

Program grapiki;
uses
crt,graph;
CONST STEP=0.05;
var gd,gm,maxX,maxY,i,j,kx,ky:Integer;
x,y,x0:real;
z:String[16];
begin
gd:=detect;
gm:=1;
InitGraph(gd,gm,'');
SetViewPort(320,240,320,240,ClipOff);
Setcolor(10); TexTcolor(10);
repeat
OutTextXY(-250,-235,'Введите максимальную абциссу или оординату');
GoToXY(65,1);
wRITELN;
rEADLN(maxX,maxY);
kx:=200 div maxX;
ky:=200 div maxY;
ClearDevice;
Setcolor(2); setlinestyle(0,1,3);
Line(0,-225,0,225); Line(0,-225,-4,-220);
Line(0,-225,4,-220); Line(-270,0,270,0);
Line(270,0,260,4); Line(270,0,260,-4);
Readln;
sETColor(10); SetLineStyle(0,0,2);
For i:=-maxx to maxx do line(i*kx,2,i*kx,-2);
 For j:=-maxy to maxy do line(2,j*ky,-2,j*ky);
 Str(maxx,z); OutTextXY(195,8,Z); OuttextXY(260,10,'x');
 Str(maxY,z); OutTextXY(-15,-202,Z);
 oUTTextXY(-15,-225,'Y');
 x0:=220;
 Repeat
 x:=x0/kx;
 {1}
 y:=sin(x);
 PutPixel(Round(x0),-Round(y*ky),14);
 if KeyPRESSED then Exit else x0:=x0+step; {shag}
 until x0>220;
 setcolor(2); outtextXY(-305,-235,'press enter');
 readLn;
 for i:=-maxx to maxx do
 for j:=maxy to maxy do putpixel(i*kx,j*ky,15);
 z:=#219; for i:=1 to 4 do z:=z+z;
 setcolor(2); outtextxy(-305,-235,'povtorit(y/n)');
 SOUND(99); DELAY(99); NOSOUND;
 UNTIL Not (readkey in ['y','Y']);
 cLOSEGRAPH;
 eND.

uses crt,graph;
function F(x:real):real;
begin
F:=x-1/sqr(x)+2;
end;
const
x1=-1;{начало и конец графика в реальных значениях}
x2=5;
var max,min,x,dx,mx,my,a,y:real;
    x0,y0,gd,px,py,gm,i,k:integer;
    s,s1:string;
begin
gd:=detect;
initgraph(gd,gm,'');
X0:=getmaxX div 5;{начало координат пропорционально интервалу}
Y0:=getmaxY div 2;
{коэффициенты по осям для перевода реальных координат в экранные}
mx:=600/(x2-x1);{длина в пикселах по оси Х/реальная длина}
my:=(y0-20)/F(x2);{половина длины оси по У/(макс. положительное значение ф-ции}
SetBkColor(7); {цвет фона}
setlinestyle(0,0,1);{сплошная линия}
SetColor(1);{цвет линий осей}
line(0,y0,getmaxX,y0); {ось Х}
line(x0,getmaxy,x0,0); {ось У}
setlinestyle(1,0,0);  {пунктирная линия}
Setcolor(9);  {цвет сетки}
for i:=1 to round(F(x2)) do   {максимальное количество засечек в одну сторону}
   begin
    line(10,y0-round(i*my),630,y0-round(i*my));{засечки на оси У}
    line(10,y0+round(i*my),630,y0+round(i*my));
    line(x0+round(i*mx),0,x0+round(i*mx),getmaxY); {засечки на оси Х}
    line(x0-round(i*mx),0,x0-round(i*mx),getmaxY);
    str(i,s);
    {подпись оси У}
    outtextXY(x0-10,y0-round(i*my),s);{соответственно засечкам}
    outtextXY(x0-15,y0+round(i*my),'-'+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+10,10, 'Y');
dx:=0.001;
{график}
x:=x1;
while x<=x2 do
 begin
  if abs(x)>0.001 then
   begin
    px:=x0+round(x*mx); {изменение по оси Х}
    y:=F(x); {график в реальных координатах}
    py:=y0-round(y*my);{в экранных}
    putpixel(px,py,10);
   end;
  x:=x+dx; {наращиваем х}
 end;
setcolor(10);
setlinestyle(0,0,1);
outtextXY(getmaxX-400,getmaxY-50,'Grafik functii Y=x-3/x^2+2, int [-1;5]');
readln
end.