Разметка координатных осей

[LLIypLLIyH]

Помогите сюда вписать разметку координатных осей.

program g;
Uses Graph,crt;
const
{ OPTIONS }
shag=0.1;
lgr = -50;
pgr = 150;
zcrtX=320;
zcrty=240;
mtrX=1;
mtrY=1;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

Var grDriver : Integer;
grMode : Integer;

x,y:real;
i:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, 'E:\bp\bgi');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);

x:=lgr;
while x<=pgr do   
begin   
  y:=abs((x-30)*(x-30)*(x-30))+40;   
  if abs(y) < MaxInt then   
    putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg);   
  x:=x+shag;   
end;   
readkey;
closegraph;
end.

[L_M]

Сообщение от LLIypLLIyH

InitGraph(grDriver, grMode, 'E:\bp\bgi');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);

насколько я понимаю это будет так:

InitGraph(grDriver, grMode, 'E:\bp\bgi');
for i:=OXYminX to OXYmaxX do 
    for j:=-3 to 3 do
        putpixel(zcrtX+i,zcrty+j,colorOXY);
for i:=OXYminY to OXYmaxY do 
    for j:=-3 to 3 do
        putpixel(zcrtX+j,zcrty-i,colorOXY);