Построить семейство разноцветных случайным образом расположенных линий — Pascal(Паскаль)

uses graph;
var x,y,x1,y1,c,f,t,i:integer;
begin
x:=0;
initgraph(x,y,'');
for i:=1 to 100 do
 begin
  x:=random(getmaxX)+1;
  x1:=random(getmaxX)+1;
  y:=random(getmaxY)+1;
  y1:=random(getmaxY)+1;
  if i mod 15=1 then c:=8 else c:=i;
  setcolor(c);
  line(x,y,x1,y1);
 end;
readln
end.