Graph: OutTextXY отображает каракули

uses graph;
var gd,gm,x0,y0:integer;
 
    x,y,k:real;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=400;
 
line(10,y0,630,y0);
line(x0,y0-400,x0-5,y0-390);
line(x0,y0-400,x0+5,y0-390);
outtextXY(625,y0+10,'X');
 
line(x0,0,x0,460);
outtextXY(x0+5,0,'Y');
 
outtextXY(x0+5,y0+5,'0');
line(x0+20,y0+4,x0+20,y0-4);
outtextXY(x0+20,y0+10,'1');
line(x0-20,y0+4,x0-20,y0-4);
outtextXY(x0-25,y0+10,'-1');
 
line(x0-3,y0-60,x0+3,y0-60);
outtextXY(x0+5,y0-60,'3');
line(x0-3,y0-20,x0+3,y0-20);
outtextXY(x0+5,y0-23,'1');
 
line(x0-80,y0-3,x0-80,y0+3);
outtextXY(x0-80,y0+10,'-4');
line(x0+80,y0-3,x0+80,y0+3);
outtextXY(x0+80,y0+10,'4');
x:=-100;
k:=0.0001;
while x<=100 do begin
y:=sqr(x);
putpixel(x0+round(x*20),y0-round(y*20),7);
x:=x+k;
end;
readln;
end.

var s:string;
....................
s:='-1';
outtextXY(x0+5,y0-60,s);