Помогите пожалуйста создать код для этой задачи на Delphi 7

[Viktor Makarov]

На участке термической обработки выполняются цементация и закаливание шестерен, поступающих через 10±5 мин. Цементация занимает 10±7 мин, а закаливание 10±6. Качество определяется суммарным временем обработки. Шестерни с временем обработки больше 25 мин покидают участок, с временем обработки от 20 до 25 мин передаются на повторную закалку и при времени обработки меньше 20 мин должны пройти полную повторную обработку. Детали с суммарным временем обработки меньше 20 мин считаются вторым сортом.
Смоделировать процесс обработки 400 шестерен. Определить функцию распределения времени обработки и вероятности полной и частичной обработки. При выходе продукции без повторной обработки менее 90% обеспечить на участке мероприятия, дающие гарантированый выход продукции первого сорта 90%.