При построении графика печатаются лишние пикселы справа

Program Grafik;
uses graph, crt;
var driver, mode, i: integer;
   x,y, S: real;
   cx,cy: word; {center}
   d1,d2: integer; {diapazon}
   mas: byte;       {masshtab}
 
procedure ENTER;
 
begin
textbackground(black);
clrscr;
window(25,10,70,20);
repeat
gotoxy(1,1);
textcolor(white);
writeln('It is made by Av');
write('The function schedule');
textcolor(green);
writeln(' Y=exp(x)/x');
textcolor(random(2)+15);write('                  Press any key...');
delay(10000);delay(10000);delay(10000);delay(10000);;delay(10000);
until keypressed;
end;
 
procedure menu;
var c: char;
begin
window(20,10,60,15);
textbackground(black);
textcolor(15);
repeat
clrscr;
writeln('     *********** MENU ***********');
writeln;
writeln(' 1. Masshtab = ',mas:3);
 
writeln(' 2. Diapazon: ot ',d1:4,' do ',d2:4);
writeln;
writeln(' Press 1-3 to edit, Enter to paint.');
c:=readkey;
case c of
'1': begin write('Vvedite masshtab: ');read(mas) end;
'2': begin write('Vvedite ot i do: ');read(d1,d2) end;
end;
until (byte(c)=13); {poka ne push probel}
end;
 
begin
  cx:=320; cy:=240;
  d1:=-20; d2:=20;
  mas:=20;
 
randomize;
ENTER;
readkey;
menu;
 
  driver:=detect;initgraph(driver,mode,'c:\bp\bgi');
{osi}
  line(0,cy,640,cy);
  line(cx,0,cx,480);
{edinicnye otrezky}
  if abs(d2)>abs(d1) then
  for i:=0 to abs(d2) do else
  for i:=0 to abs(d1) do
  begin
  x:=i*mas;
  line(cx-3,cy+round(x),cx+3,cy+round(x));
  line(cx-3,cy-round(x),cx+3,cy-round(x));
  line(cx+round(x),cy-3,cx+round(x),cy+3);
  line(cx-round(x),cy-3,cx-round(x),cy+3);
  end;
{postroenie graphika}
  for i:=d1*300 to d2*300 do
  begin
  x:=i/300; if abs(x)<>0 then
  y:=exp(x)/x*mas;
  putpixel(round(x*mas)+cx,round(-y)+cy,14);
  end;
{X i Y}
  outtextxy(325,10,'Y');
  outtextxy(620,225,'X');
 
  readkey;
  closegraph;
end.