Заполнить экран случайно расположенными прямоугольниками разных размеров стороны которых параллельны сторонам экрана. Цвет, стиль и толщину линий каждого прямоугольника так же должны изменятся случайно — Pascal(Паскаль)

uses graph;
var n,i,x,y,w,h,c,f,t:integer;
begin
randomize;
write('n=');
readln(n);
x:=0;
initgraph(x,y,'');
for i:=1 to n do
 begin
  w:=random(getmaxX-10)+2;
  h:=random(getmaxY-10)+2;
  x:=random(getmaxX-w)+1;
  y:=random(getmaxY-h)+1;
  c:=random(15)+1;
  setcolor(c);
  f:=random(4);
  t:=random(3)+1;
  setlinestyle(f,0,t);
  rectangle(x,y,x+w,y+h);
 end;
readln
end.