uses crt, graph;
type
     pcomp = ^comp;
     comp = record
            x : integer;
            y : integer;
            pnext : pcomp;
            end;
var
    pbegin, pend, paux : pcomp;
    gd, gm : integer;
procedure ochadd(a, b : integer);
begin
      new(paux);
      pend^.pnext := paux;
      paux^.x := a;
      paux^.y := b;
      paux^.pnext := nil;
      pend := paux;
end;

procedure ochget;
var
    x1, y1, x2, y2 : integer;
begin
      pbegin := pbegin^.pnext;
      x1 := pbegin^.x + (random(100) - 50);
      y1 := pbegin^.y + (random(100) - 50);
      x2 := pbegin^.x + (random(100) - 50);
      y2 := pbegin^.y + (random(100) - 50);
      setcolor(random(14+1));
      line(pbegin^.x, pbegin^.y, x1, y1);
      setcolor(random(14+1));
      line(pbegin^.x, pbegin^.y, x2, y2);
      ochadd(x1, y1);
      ochadd(x2, y2);
end;

begin
      randomize;
      clrscr;
      pbegin^.pnext := pend;
      ochadd(200, 200);
      ochadd(300, 200);
      gd := detect;
      initgraph(gd, gm, '');
      line(200, 200, 300, 200);
      while (not keypressed) do begin
      ochget;
      delay(500);
      end;
      closegraph;
end.