сделай несколько процедур (зарисовка 12и, зарисовка 6и и тд) в какой то координате(в них будет передаваться x и y), создай 2 цикла в одном увеличение по x , в следующем по y, в последнем сделай i:=random(3); , а ниже в операторе case, если i равно
1: нарисовать 12и
2: 6и
и тд

Тогда у тебя в ряд будут идти разные n угольники и заполнится весь экран( ну смотря какие конечно числы по x и y задашь)

ЗЫ Извини что без кода, спать жутко хочется, но раз сам пытался, то тебе не сложно реализовать будет