Добавить по одному делению в зависимости от масштаба

uses GraphABC;
Var
w:string;
y,x,dx,x1,xk,y3,y4:real;
s,g,f,l:integer;
mx,my,px,py,x0,y0,m,q,t:integer;
begin
Writeln('Введите масштаб по х:');
read(mx);
Writeln('Введите масштаб по у:');
read(my);
Writeln('Укажите диапазон изменений х:');
Write('x1 = ');
read(x1);
Write('x2 = ');
read(xk);
dx:=0.025;
//оценка графика
x:=x1;
while (x<=xk) do
begin
y:=(sin(x)+cos(x-1));
if y>y3 then y3:=y;
if y<y4 then y4:=y;
x:=x+dx;
end;
if x1<0 then x0:=round(abs(x1)*20*mx+20)
else x0:=20;
t:=round(x0+(xk)*20*mx+40);
y0:=round((y3)*20*my+50);
SetWindowSize(t+20,abs(y0)+round((abs(y4))*20*my+30));
//построение графика
x:=x1;
while (x<=xk) do
begin
y:=(sin(x)+cos(x-1));
px:=x0+ROUND(x*20*mx);
py:=y0-ROUND(y*20*my);
putPixel(px,py,1);
x:=x+dx;
end;
//нанесение делений
x:=0;q:=0;
while (x<xk) do
begin
x:=x+1;
w:=inttostr(Round(x));
q:=x0+ROUND(x*20*mx);
line(q,y0+5,q,y0-5);
textout(q-2,y0+10,w);
end;
x:=0;q:=0;
while (x<xk) do
begin
x:=x+0.1;
q:=x0+ROUND(x*20*mx);
line(q,y0+3,q,y0-3);
end;
x:=0;q:=0;
while (x>=x1) do
begin
x:=x-1;
w:=inttostr(Round(x));
q:=x0+ROUND(x*20*mx);
line(q,y0+5,q,y0-5);
textout(q-5,y0+10,w);
end;
x:=0;q:=0;
while (x>=x1) do
begin
x:=x-0.1;
q:=x0+ROUND(x*20*mx);
line(q,y0+3,q,y0-3);
end;
//оси
Line(0,y0,t,y0);
Line(x0,10,x0,200*my);
line(t,y0,t-25,y0+5);
line(t,y0,(t-25),y0-5);
Line(x0,10,x0-5,35);
Line(x0,10,x0+5,35);
textOut(x0+10,5,'Y');
textOut(t-10,y0+10,'X');
textOut(x0-10,y0+2,'0');
line(x0-5,y0-40*my,x0+5,y0-40*my);
line(x0-5,y0+40*my,x0+5,y0+40*my);
line(x0-5,y0-20*my,x0+5,y0-20*my);
line(x0-5,y0+20*my,x0+5,y0+20*my);
line(x0-3,y0-30*my,x0+3,y0-30*my);
line(x0-3,y0+30*my,x0+3,y0+30*my);
line(x0-3,y0-10*my,x0+3,y0-10*my);
line(x0-3,y0+10*my,x0+3,y0+10*my);
textOut(x0-15,y0+38*my,'-2');
textOut(x0-15,y0+18*my,'-1');
textOut(x0-13,y0-22*my,'1');
textOut(x0-13,y0-42*my,'2');
end.