Составить программу построения графика y=sinx/x

uses graphABC;
function F(x:real):real;
begin
F:=sin(x)/x
end;
var mx,my,x,dx,y:real;
    x0,y0,i:integer;
    s:string;
begin
x0:=windowwidth div 2;{íà÷àëî êîîðäèíàò â öåíòðå ýêðàíà}
y0:=windowheight div 2;
{êîýôôèöèåíòû ïî îñÿì äëÿ ïåðåâîäà ðåàëüíûõ êîîðäèíàò â ýêðàííûå}
mx:=30;
my:=100;
line(0,y0,windowwidth,y0); {îñü Õ}
line(x0,windowheight,x0,0); {îñü Ó}
{ïîäïèñè îñè Y}
line(x0-3,y0-round(my),x0+3,y0-round(my));
textout(x0-10,y0-round(my)-15,'1');
line(x0-3,y0+round(my),x0+3,y0+round(my));
textout(x0-15,y0+round(my),'-1');
{ïîäðèñè îñè Õ}
for i:=1 to 6 do   {ìàêñèìàëüíîå êîëè÷åñòâî çàñå÷åê â îäíó ñòîðîíó}
 begin
  line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3); {çàñå÷êè íà îñè Õ}
  line(x0-round(i*pi*mx/2),y0-3,x0-round(i*pi*mx/2),y0+3);
  if i mod 2=0 then {ïîäïèñè ÷åðåç 1}
   begin
    str(i div 2,s);
    if s='1' then s:='';{1pi 1 íå ïèøåì}
    textout(x0+round(i*pi*mx/2),y0+10,s+'pi');
    textout(x0-round(i*pi*mx/2),y0+10,'-'+s+'pi');
   end;
  end;
{öåíòð}
textout(x0+5,y0+10,'0');
{ïîäïèñè êîíöîâ îñåé}
textout(windowwidth-10,y0-10,'X');
textout(x0-10,10, 'Y');
dx:=0.001;
{ãðàôèê}
x:=-3*pi;
while x<=3*pi do
 begin
  setpixel(x0+round(x*mx),y0-round(F(x)*my),clBlue);{ãðàôèê ñèíèì}
  x:=x+dx; {íàðàùèâàåì õ}
 end;
end.