Соединение точек на графике

program lr12;
Uses crt,graph; Const shag=0.01;
type mas=array[1..100] of integer;
     massiv=array[1..100] of real;
var a,b,h,x,integral,imax,imin,ymax,ymin :real;
     n,i,j,z:integer;
     xx:mas;y:massiv;
Procedure vvod;
  var j:integer;
 begin
  write('vvedite predel integrirovaniya  a='); readln(a);
  write('vvedite predel integrirovaniyaя b='); readln(b);
  write('vvedite kolichestvo razbieniy z='); readln(z);
   for j:=1 to z do
    begin
     write('vvedite znacheniye razbieniya (chetnoye znacheniye) n',j,'='); readln(xx[j]);
      if (xx[j] mod 2)>0 then
       begin
        xx[j]:=xx[j]+1;
        writeln('Chislo n',j,' bylo vvedeno nechotnoye, ono budet zameneno na n',j,'=',xx[j]);
       end;
    end;
 end;
Function F(x:Real):Real;
 begin
  F:=1/(1+x*x);
 end;
Procedure Maxmin(Var imax,imin,ymax,ymin:real;var xx:mas;var y:massiv; ii:integer);
  Var i:integer;
      k:real;
 Begin
  imin:=xx[1]; imax:=xx[1]; 
  For i:=1 to ii do
     Begin
       If imin>xx[i] then imin:=xx[i];
       If imax<xx[i] then imax:=xx[i];
     End;
  i:=1;
  ymax:=y[i];ymin:=y[i];
  For i:=1 to ii do
   begin
    if ymax<y[i] then ymax:=y[i];
    if ymin>y[i] then ymin:=y[i];
   end;
 End;
Procedure Masshtab(Var mx,my:real; Var a1,a2:integer; ymax,ymin,imin,imax:real);
 Begin
  If ymax*ymin>=0 then
                    Begin
                     If ymin>=0 then
                                 Begin
                                   my:=round((getmaxy-10)/(ymax));
                                   a2:=Round(my*ymax)+5;
                                 End
                               else
                                 Begin
                                   my:=-1*(getmaxy-10)/ymin;
                                   a2:=Round(my*ymax)+5;
                                 End;
                    End
                  else
                    Begin
                      my:=(getmaxy-10)/(ymax-ymin);
                      a2:=Round(my*ymax+5);
                    End;
                      mx:=getmaxx/(imax-imin);
                      a1:=Round(mx*(-1)*imin);
End;
 Procedure Postr(var a,b:real;ymax,ymin:real; Var xx:mas;var y:massiv);
  Var mx,my,k:real;
      s:string;
      ErrCode,GrDriver,GrMode,a1,a2,i:integer;
 Begin
  GrDriver:=Detect; InitGraph(GrDriver,GrMode,'..\bgi');
  ErrCode:=GraphResult;
  If Errcode<>GrOk then Writeln('Graphic error !!!')
                   else
                     Begin
                       Masshtab(mx,my,a1,a2,ymax,ymin,imin,imax);
                       Line(0,getmaxy-10,getmaxx,getmaxy-10);
                       str(a:3:0,s);
                       Outtextxy(15,getmaxy-20,s);
                       str(b:3:0,s);
                       Outtextxy(getmaxx-50,getmaxy-20,s);
                       Line(10,0,10,getmaxy);
                       str(ymax:5:2,s);
                       Outtextxy(15,20,s);
                       str(ymin:5:2,s);
                       Outtextxy(15,getmaxy-40,s);
                       k:=a;
                        For i:=1 to z do
                         Begin
                            SetColor(14);
                            Circle(Round(xx[i]*mx+a1),round(a2-y[i]*my),3);
                         End;
                       SetColor(15);
                       OutTextxy(15,5,'L(x)');
                       OutTextxy(631,getmaxy-20,'X');                       
 
                     End;
End;
BEGIN
vvod;
for j:=1 to z do
  begin
    h:=(b-a)/xx[j];
    integral:=F(a)+F(b)+4*F(a+h);
      for i:=1 to (xx[j] div 2)-1 do
        begin
          x:=a+2*h*i;
          integral:=integral+2*F(x)+4*F(x+h);
        end;
      integral:=h*integral/3;
      writeln('integral = ',integral);
      y[j]:=integral;
  end;
Maxmin(imax,imin,ymax,ymin,xx,y,z);
Postr(imin,imax,ymax,ymin,xx,y); 
ReadKey;CloseGraph;
end.

 k:=a;
    Moveto(round(xx[1]*mx+a1),round(a2-y[1]*my));
    SetColor(14);
    Circle(Round(xx[1]*mx+a1),round(a2-y[1]*my),3);
    For i:=2 to z do
      Begin
        SetColor(14);
        Circle(Round(xx[i]*mx+a1),round(a2-y[i]*my),3);
        Setcolor(12);
        LineTo(Round(xx[i-1]*mx+a1),round(a2-y[i-1]*my));
      End;