Использование модуля GRAPH

uses crt,graph;
var gd,gm:integer;
    x0,y0,a,b,x1,y1,x,y:longint;
    s:string;
begin
clrscr;
repeat
write('Vvedite a ot 1 do 220 a=');
readln(a);
until (a>0)and(a<=220);
repeat
write('Vvedite b ot 1 do 330 b=');
readln(b);
until (b>0)and(b<=330);
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
Setbkcolor(15);
Setcolor(1);
{оси}
line(0,y0,getmaxX,y0);
line(x0,getmaxY,x0,0);
line(x0-5,15,x0,0);
line(x0+5,15,x0,0);
line(625,y0-5,640,y0);
line(625,y0+5,640,y0);
Settextstyle(0,0,2);
{подписи на осях}
outtextXY(x0+7,7,'Y');
outtextXY(620,y0+10,'X');
Settextstyle(0,0,1);
str(b,s);
outtextXY(x0-b-20,y0+10,'-'+s);
outtextXY(x0+b,y0+10,s);
outtextXY(x0+5,y0+10,'0');
str(a,s);
outtextXY(x0+5,y0-a,s);
{подпись функции}
x1:=(2*x0+b)div 2;
y1:=(2*y0-a) div 2;
outtextXY(x1+20,y1-20,'F(x)');
line(x1,y1,x1+20,y1-10);
{график}
setlinestyle(0,0,3);
line(20,y0,x0-b,y0);
line(x0-b,y0,x0,y0-a);
line(x0,y0-a,x0+b,y0);
line(x0+b,y0,620,y0);
readln
end.