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