Redimensionar un arreglo

[darkone2k3]

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:

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.