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