Pascal/Turbo Pascal - Ayuda con Array

Como muestro los datos guardados en un Array uno por uno

For i:=1 TO n DO
write(a[i]);

n es el número de elementos del array. Al array le llamo a

Mar me dijo como hacerlo, funcionó, pero el problema esta que cuando agrego un artículo y lo visualizo después ese artículo esta ahi, pero cuando agrego el segundo artículo, este borra el primero y solo se visualiza el segundo. Que hago para visualizarlo uno por uno al presionar uan tecla.

Me parece que la primera vez que lo envie no lo publicó; sino perdonad.

For i:01 to n do
Begin
writeln(x);
repeat until keypressed;
End;

Para usar la funcion keypressed:

Program articulos (input,output);
uses crt; (*si ves que no funciona, prueba uses dos, ahora mismo no me acuerdo muy bien*)