Построение оси координат в ПаскалеАБС

[An0mality]

Как сделать отрезки на осях Ох,Оу чтоб начанались с центра i:=0, а не как у меня I:=21.Так же как на отрезки обозначит, чтоб текст переводился в число,через string.
uses Crt,GraphABC;
const k=4;edx=k*5; edy=k*5;
WidthE = 800; nkx=WidthE div 2;
px=400 ; HeightE = 600 ;nky=HeightE div 2;
pyv=300; x=400; y=300;

var
m,n,i:integer;s1: string;
Begin
SetWindowWidth (WidthE);
SetWindowHeight (HeightE);
SetPenWidth (2);
SetPenColor (clLightGray); m:= 0;
CenterWindow;
repeat
line(0,edx+m*edx,WidthE,edx+m*edx);
inc(m);
until m>100;
SetPenColor (clLightGray); n:=0;
repeat
line (edx+n*edx,0,edx+n*edx,WidthE);
inc (n);
until n>100;
//Палочки на оси координат Ox
for i:=21 to 37 do
begin
SetPenColor (clRed);
SetPenWidth (3);
line (edx*i,nky-6,edx*i,nky+6);
//Ось координат
SetPenWidth (5);
SetPenColor (clBlue);
line(WidthE div 2,WidthE-2*edx,WidthE div 2,0);
line(0,nky,WidthE,nky);
//Стрелочки по Ох
line(nkx+px,nky,nkx+px-2*edx,nky-6);
line(nkx+px-2*edx,nky-6,nkx+px-edx,nky);
line(nkx+px-2*edx,nky+6,nkx+px-edx,nky);
line(nkx+px-2*edx,nky+6,nkx+px,nky);
//Стрелочки по Оу
line (nkx,nky-pyv,nkx-6,nky-pyv+2*edy);
line (nkx,nky-pyv+edy,nkx-6,nky-pyv+2*edy);
line (nkx,nky-pyv+edy,nkx+6,nky-pyv+2*edy);
line (nkx,nky-pyv,nkx+6,nky-pyv+2*edy);
end;
end.