Работа с Random. Опции

[Славик]

Здравствуйте!

Есть код

 program R;
var
 X: Byte;
radomize: integer;

begin
 for x := 1 to 4 do
   WriteLn(Random(10));
end.

Но, при "проигрывании" ВСЕГДА выдает ОДНО и тоже. То есть, нет выпадания случайных чисел.

0
0
8
2

(0082 при каждом запуске)

У меня виндовс XP. Что можно сделать?

P.S. повторы выпадания чисел происходят всегда, с любым указанным количеством номеров. И всегда номера начинаются на НОЛЬ.

[klem4]

Хелп в паскале не работает ? Поиск по форуму тоже ?