Pages that link to pascal random() для randomize() вызванного Внутри процедуры возвращает одно и то же значение