В одной программе нарисовать 10 различных фигур

Uses
  Crt,GraphABC,PointRect;
Var
  gd,gm: Integer;
const
  n=6; //количество точек
  p:array[1..n] of Point=((x:30;y:10),//константа - массив точек
                              (x:50;y:50),
                              (x:70;y:10),
                              (x:90;y:50),
                              (x:110;y:10),
                              (x:130;y:50));
var
  a:array[1..n] of Point; //массив-переменная для рисования
var
  x,y,d,h,k:integer;
 
procedure Trg(x,y,d,k:integer);
var
  x1,y1,x2,y2:integer;
begin
  if k=1 then
    y1:=y+round(d*cos(pi/6))
  else
    y1:=y-round(d*cos(pi/6));
  x1:=x+round(d*sin(pi/6));
  x2:=x-round(d*sin(pi/6));
  y2:=y1;
  line(x,y,x1,y1);
  line(x1,y1,x2,y2);
  line(x2,y2,x,y);
end;
 
BEGIN
  Randomize;
  Repeat
    ClearWindow;
    hidecursor;
    setpencolor(Random(255)*255);
    setpenwidth(Random(5)+1);
    d:=100;
    x:=Random(d div 2);
    y:=Random(windowheight div 2);
    k:=1;
    Trg(x,y,d,k); // треугольник
 
    a:=p;
    polyline(a,n);//рисуем полигон
    Circle(Random(100),Random(500),Random(100));   //круг
    Rectangle(Random(500),Random(500),Random(500),Random(500)); //прямоугольник
    RoundRect(Random(500),Random(500),Random(500),Random(500),100,100); //прямоугольник
    Line(Random(500),Random(500),Random(500),Random(500)); //линия
    Arc(Random(100),Random(500),Random(500),Random(100),Random(100)); //дуга
    Ellipse(Random(500),Random(500),Random(500),Random(500)); //эллипс
    pie(Random(100),Random(500),Random(500),Random(100),Random(100)); //сектор
    
  until Keypressed;
  Readln;
END.