[impersonalis]

нет - только прямое присвоение.
В принципе - можно использовать опреаторы Data\Read, но это не лучший вариант, ибо:
1)если данные не постоянны - то их надо грузить из файла или шифрованного ресурса
2)если данные стабильны - то напиши простенький код, который сверстает тебе код с присовениями на блитц (иные реализации этого метода - альтернативные функции загрузки значений в массив, например: парсер строки)
3)варинат третий (психоделчиеский). Базируется на 2ом. Описать твои числовые данные при помощи формулы, зависящей от индекса элемента. Плох трудоёмкостью составления формулы (в худшем случае - это тупо полином вида (1-abs(sgn(I-I1)))*A1+.. ), нечитабельностью и слабой вариатвностью кода.