Punteros Modula-2

[Cypress]

Todavia no logro entender mucho punteros.. entiendo el concepto.. pero no lo se pasar a la maquina. Hice un código que supuestamente hace esto:
Te pregunta una cantidad de veces que que queres ingresar X números, luego de ingresar estos X números te los muestra.
Este codigo puede que este muy mal. Estoy haciendo esto medio a ciegas.

MODULE eqf;
FROM InOut IMPORT ReadCard,WriteCard, WriteString,WriteLn;
TYPE  Cardlista = POINTER TO Nodo;
Nodo  = RECORD
	elemen:CARDINAL;
	Resto:Cardlista;
END;
VAR
	l:Cardlista;
	a,i:CARDINAL;
	
BEGIN
	l:=NIL;
	WriteString ("Ingrese un número");
	WriteLn;
	ReadCard(a);
	WriteLn;
	FOR i:=1 TO a DO		
		NEW(l);	(*	aca me da error el compilador.. no tengo muy claro lo que hace el comando NEW, creo que agrega un espacio al puntero *) 

                ReadCard (l^.elemen);
		l^.Resto:=NIL;		
	END;
	
	FOR i:= 1 TO a DO
		WriteCard (l^.elemen);
	END;
END eqf.

Pues bien.. ^^ ahí esta el código.. voy a seguir intentando.. pero por ahora no sale nada

Saludos,
Cypress