Gracias por contestar, pero ya cambie lo que me dices, pero ese no es el problema(el problema es que debo redimensionar "lista" y no puedo), el problema me lo da aqui:
Código:
For i := 0 To length( j ) - 1 Do
Lista [i ] := j [i ];
Este
ciclo for lo hice porque como debia redimensionar
Lista y no he podido, he usado un array temporal, en este caso
j. Por lo que hice este
ciclo for para traspasar los valores almacenado en j a Lista.
Salu2.