Циклы в графике. Построение случайных процессов

Она генерирует случайные числа из [0, 1). Для расширения первоначального промежутка используется функция Random (I:word), которая выдает число из диапазона 0… I. На самом деле эти функции генерируют некоторую последовательность псевдослучайных чисел, и чтобы добиться иллюзии полной «случайности» используют команду Randomize,которая изменяет базу датчика случайных чисел.

Пример1.
Нарисовать в случайном месте экрана точку случайного цвета
Фрагмент программы:
Randomize
x:=random(640);
y:=Random(480);
c:=Random(15);
PutPixel(x, y, c);

Пример2.
Нарисовать 5000 точек случайного цвета в случайном месте.
Фрагмент программы:
For i:=1 to 5000 do
begin
x:=Random(640);
y:=Random(480);
c:=Random(15);
PutPixel(x, y, c);
end;