Как, используя функцию random(x), можно получать числа в диапозонах: от 1 до 10, от -10 до +10, от 50 до 100
для начала.
после Главного BEGIN напишите randomize; что бы каждый раз были разные значение.
потом считайте за формулой.
random(max-min+1)+min;
Надо прописать Randomize;
Диапазон от a до b
x:=random(b-a+1)+a;