procedure SetArrayLength(var Arr: Array; I: Longint);
Устанавливает размер массива. Прежде чем обращаться к элементам массива, всегда сначала используйте вызов SetArrayLength.