hola, recién estoy comenzando a programar en modula y tengo un problema, es el siguiente: intento llenar un arreglo con caracteres, y esto es lo que hago

FOR i:= 1 TO N DO
WriteString('escribi un caracter');
Read(Y[i]);
END; (*FOR*)

y me pasa ésto, en el primer lugar me guarda un caracter, en el segundo nada, en el 3 caracter, en el 4 nada, y asi sucesivamente, alguien sabe que ewstoy haciendo mal?
saludos