помогите пожалуйста написать программу на дельфи

[qwerra]

Спасибо...роботаеть)

[Neeter]

Зачем писать Randomize несколько раз в программе?
Я уже писал в onCreate формы в той программе и в onClick кнопки совсем не надо писать Randomize.
Вот цитата из одного теста (http://www.delphikingdom.com/quintan....asp?ItemID=10):

Random(N) возвращает целое псевдослучайное число из диапазона 0..N-1, так что с типом и диапазоном всё в порядке. Но функцию Randomize вызывать в цикле не стоит, её надо вызывать только один раз за всё время работы программы. Псевдослучайные числа – это последовательность чисел, в котором каждое следующее число вычисляется на основании предыдущего, при этом формула подобрана так, чтобы длинная последовательность таких чисел с точки зрения статистических алгоритмов выглядела как можно ближе к какому-либо случайному распределению (в случае с Random – к равномерному распределению на отрезке). Соответственно, надо как-то выбрать первое число этой последовательности, которое определит все остальные её числа. Randomize выбирает это число на основании точного (с учётом миллисекунд) времени вызова. Так как это время плохо предсказуемо, последовательность получается достаточно случайной. Но если вызывать Randomize перед каждым вызовом Random, все сгенерированные этой функцией значения будут принадлежать разным последовательностям, поэтому статистически распределение не будет выглядеть случайным (хотя на небольших последовательностях это заметить сложно). Соответственно, вызов Randomize в цикле приводит к ухудшению «случайности» получающихся чисел и лишнему расходу процессорного времени.

[Вавел из ГМТУ]

Я не смотрел весь код

[qwerra]

Всем большое спасибо,кто ответил)
Всё прошло хорошо)
Экзамен сдан))