Pascal/Turbo Pascal - Inicializar un vector de enteros con valores const

Estoy programando en Turbo Pascal 7.0:

Necesito inicializar un vector de enteros (de 80 enteros), introduciendo una lista de valores determinados en él (pero por supuesto no aleatorios)

Ejemplo:

Vector array[1..80] of integers

{el contenido de mi vector ha de ser obligatoriamente: 2,14,4,14,4,6,14,8,14,14,8...

Se que puedo hacerlo posición por posición pero es una locura. Además teniendo en cuenta que necesito inicializar 8 vectores como el que he explicado anteriormente. ¿alguien puede ayudarme?

Gracias

Hazlo de la siguiente forma:

Const
MiArray :Array[1..80] of Integer = (12, 23, 324, 12, 34, ....);

En el fondo, el CONST anterior es sólo una VAR que asigna un tipo y un valor al mismo tiempo.

Saludos ;-)