Pascal/Turbo Pascal - Como tener un vector lleno sin meter datos x tecla

Me gustaria que alguien me mandase el código fuente de como se haria un ejercicio en el que te piden que empices con un vector, en turbo pascal, lleno de 40 caracteres ya sean números o letras, sin tenerlas que meter con el teclado.
Gracias

Randomize;
for i:=1 to 40 do
A[i]:=Char(Random(26)+64);

Listo :).