Четырехугольник с 2-мя точками

Program figuri;
  uses graph;
  type P=1..640;
       T=(krug,treugolnik, pryamougolnik);
       graphika=record
       tsvet:byte;
       case tip:T of
         krug:(kx:P; ky:P; r:P);
         treugolnik:(kx1:P; ky1:P; kx2:P; ky2:P; kx3:P; ky3:P);
         pryamougolnik:(kpx1:P; kpy1:P; kpx2:P; kpy2:P; kpx3:P; kpy3:P; kpx4:P; kpy4:P);
       end;
  Const n=50;
  Var a:array[1..n] of graphika; i,b:byte; d,m:integer;
     begin
     d:=Detect;
     InitGraph(d,m, 'C:\Program files\Trbo Pascal 7.1\BGI\EGAVGA.BGI');
     randomize;
     for i:=1 to n do
     begin
       b:=random(3);
       a[i].tsvet:=2+random(15);
 
       case b of
       0: begin a[i].tip:=krug; a[i].kx:=5+random(640);
                a[i].ky:=5+random(480); a[i].r:=random(100); end;
       1: begin a[i].tip:=treugolnik; a[i].kx1:=5+random(640);
                a[i].ky1:=5+random(480); a[i].kx2:=a[i].kx1+random(50);
                a[i].ky2:=a[i].ky1+random(50); a[i].kx3:=a[i].kx1+random(50);
                a[i].ky3:=a[i].ky1+random(50); end;
       2: begin a[i].tip:=pryamougolnik; a[i].kpx1:=5+random(640);
                a[i].kpy1:=5+random(480); a[i].kpx2:=a[i].kpx1+random(50);
                a[i].kpy2:=a[i].kpy1; a[i].kpx3:=a[i].kpx1; a[i].kpy3:=a[i].kpy1+random(50);
                a[i].kpx4:=a[i].kpx2; a[i].kpy4:=a[i].kpy3; end;
       end;
     case a[i].tip of
     krug: begin setcolor(a[i].tsvet); circle(a[i].kx, a[i].ky, a[i].r); end;
     treugolnik: begin setcolor(a[i].tsvet);
                       line(a[i].kx1, a[i].ky1, a[i].kx2, a[i].ky2);
                       line(a[i].kx1, a[i].ky1, a[i].kx3, a[i].ky3);
                       line(a[i].kx3, a[i].ky3, a[i].kx2, a[i].ky2);
                 end;
     pryamougolnik: begin setcolor(a[i].tsvet);
                          line(a[i].kpx1, a[i].kpy1, a[i].kpx2, a[i].kpy2);
                          line(a[i].kpx1, a[i].kpy1, a[i].kpx3, a[i].kpy3);
                          line(a[i].kpx4, a[i].kpy4, a[i].kpx2, a[i].kpy2);
                          line(a[i].kpx4, a[i].kpy4, a[i].kpx3, a[i].kpy3);
                    end;
     end;
     end;
     readln;
     end.

rectangle(a[i].kpx1, a[i].kpy1,a[i].kpx2, a[i].kpy2);