Я хочу рассказать о функции Random как вы уже поняли по названию статьи. Название говорит само за себя, что бы получить какое - то рандомное число...
Вот не большой пример:
var
i, s: Integer;
begin
randomize;
for i := 1 to 10 do
begin
s := random(10);
write(' ',s);
end;
end.