Графики функций. не пойму, в чем ошибка=/

{$N+}
uses    crt, graph;
 
const   p=35;  n=20;
        B:array [1..11] of real =(1/6, 1/30, 1/42, 1/30, 5/66, 691/2730, 7/6, 3617/510, 43867/798, 174611/330, 854513/138);
label qq;
var     i,j,nn, h,x,y:integer;
        s:string;
        ai,ai2,r,k,z,xt:double;
        F:array[1..n] of double;
        Ft:array[1..n] of double;
begin
    writeln('Tablica');
    k:=0;
    while (k<1) do
    begin
       r:=0;
       nn:=1;
       ai:=1-(k/2)+B[1]*k*k/2;
       repeat
           r:=r+ai;
           ai:=-B[nn+1]*k*k/(B[nn]*(2*nn+1)*(2*nn+2));
           nn:=nn+1;
       until abs(ai)<0.001;
       F[i]:=r;   {prosraya}
       if k=0 then
       begin
         writeln('x=', k:3:2,'  F=', F[i]:4:2 , '   delenie na 0   ' ,'  iteracii= ',(nn-1));
         goto qq;
         end
       else
         Ft[i]:=k/(exp(k)-1);  {tochnaya}
         writeln('x=', k:3:2,'  F=', F[i]:4:2 ,'  Ft=',  Ft[i]:4:2 ,'   ',((F[i]-Ft[i])/F[i])*100:4:2 ,'  iteracii= ',(nn-1));
       qq:  k:=k+0.05;
    end;
    readln;
 
  x:=detect;
  y:=0;
  initgraph(x,y,'x:\TP\BGI ');
  setcolor(red);
  line(90,400,580,400);
  line(140,10,140,470);
  for i:=1 to 10 do
  begin
     line(140+(p*i),395,140+(p*i),405);   {zasechki, koordinati}
     setcolor(green);
     str(i/10:2:1,s);
     outtextxy(135+(p*i),410,s);
     str(i/10:2:1,s);
     outtextxy(150,400-(p*i),s);
     setcolor(red);
     line(135,400-(p*i),145,400-(p*i));
  end;
  line(580,400,570,395);  {strelki}
  line(580,400,570,405);
  line(140,10,135,20);
  line(140,10,145,20);
  setcolor(lightred);
  outtextxy(570,387,'x');
  outtextxy(150,410,'0');
  outtextxy(200,12,'y');
    {prostaya}
    k:=0;
    i:=1;
    moveto (round(140+(10*p*k)),round(400-(10*p*F[i])));
    k:=0.005;
    repeat
      i:=i+1;
      lineto (round(140+(10*p*k)),round(400-(10*p*F[i])));
      k:=k+0.05;
    until k>=1;
    {tochnaya}
    setcolor(green);
    k:=0.05;
    i:=1;
    moveto   (round(140+(10*p*k)),round(400-(10*p*Ft[i])));
    k:=0.1;
    repeat
      i:=i+1;
      lineto (round(140+(10*p*k)),round(400-(10*p*Ft[i])));
      k:=k+0.05;
    until k>1.05;
readln;
end.