-Цитата от Атлет

и че, суки, мне никто не поможет? мне сдавать нужно в понедельник)

-Цитата от Атлет

-Цитата от Чегерап

ну а как ты думаешь если таким тоном обращаться много ли будет желающих помочь?
у меня вот нет желания после такого обращения

так я же нормально сначало попросил, ласково.

прости пожалуйста, если тебя оскорбила моя грубость.

ты мне поможешь?

-Цитата от Hammer

Здесь никто ничем тебе не обязан. Тем более писать полностью за тебя.

за меня ничего не нужно писать. мне лишь нужно показать как этот код работает и я сам буду лобать.

Ты какой-то странный тип.
Если писать не надо, то в чём проблема? Алгоритм же крайне прост.
Создаёшь тип рекорд с полями: месяц и дата (можно и TDate использовать вощемто).
Объявляешь массив 1..23 of твой тип.
Дальше в цикле от 1 до 23 заполняешь каждый его элемент следующим образом:
В месяц вписываешь случайное число от 1 до 12. Затем исходя из этого получившегося числа генерируешь кол-во дней (т.е., если месяц 12, то random(31), если 9, то random(30), хотя я не помню, от нуля он генерирует или от 1, так что учти это).
Затем в следующем цикле проверяешь, встречаются ли идентичные значения хотя бы раз. Если так, то увеличиваешь значение какой-то переменной (пусть Х) на 1 (изначально она нулю равна).
Ну и всю эту хуйню суёшь в цикл, выполняющийся 10000 раз (или сколько там тебе надо). В результате этого цикла в X будет кол-во групп, подходящих пол это правило.
Как-то так.