Нужно перевести из турбо паскаля - Pascal ABC

uses graph;
var mx,my:real;
x0,y0,grD,grM,i,k:integer;
s:string;
begin
grD:=detect;
initgraph(grD,grM,'');
X0:=getmaxX div 2;
Y0:=getmaxY div 2;
k:=10;
 
mx:=(x0-20)/10;
my:=(y0-20)/10;
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 k 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-15,y0-round(i*my),s);
    outtextXY(x0-25,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');
readln
end.

uses graphABC;
var mx,my:real;
    x0,y0,i,k:integer;
begin
x0:=windowwidth div 2;
y0:=windowheight div 2;
k:=10;
mx:=(x0-20)/10;
my:=(y0-20)/10;
setpencolor(clSkyBlue);
setpenwidth(1);
setpenstyle(psDot);
setfontcolor(clBlue);
for i:=1 to k do
 begin
  line(10,y0-round(i*my),windowwidth,y0-round(i*my));
  line(10,y0+round(i*my),windowwidth,y0+round(i*my));
  line(x0+round(i*mx),0,x0+round(i*mx),windowheight);
  line(x0-round(i*mx),0,x0-round(i*mx),windowheight);
  textout(x0-25,y0-round(i*my),inttostr(i));
  textout(x0-25,y0+round(i*my),inttostr(-i));
  textout(x0+round(i*mx),y0+10,inttostr(i));
  textout(x0-round(i*mx),y0+10,inttostr(-i));
 end;
textout(x0+5,y0+10,'0');
textout(windowwidth-10,y0-10,'X');
textout(x0-10,10, 'Y');
setpencolor(clBlue);
setpenwidth(2);
line(0,y0,windowwidth,y0);
line(x0,windowheight,x0,0);
end.