Ответ: Паскаль забыл уже, могу на php.
Ответ: Чтобы сгенерировать псевдо случайное число, можно брать текущее unixtime и прогонять его через функцию хеширования, которая на выходе даёт только числа(например, алгоритм CRC). Это если диапазон выходных значений не ограничен.