[zip000]

Массивы вариантов занимают много памяти, лучше использовать динамические массивы

Код:

var
  ar : array of Integer; // одномерный массив
  ar2 : array of array of Integer// массив массивов или двумерный массив

// Выделение памяти под массив с помощью SetLength
  SetLength(ar, 10); // Для одномерного массива (10 это количество элементов в массиве)
  ar[0] := 1000; // Обращение к элементу массива
  ar[2] := 3000;

  SetLength(ar2, 20);     // Для думерного массива. Сначала задаем количество массивов,
  for i := 0 to 19 do     // потом задаем размер каждого массива
    SetLength(ar2[i], 5); //
  ar2[1][3] := 4000; // Обращение к элементу двумерного массива

// Освобождение занятой памяти
  ar := nil;
  for i := 0 to 19 do
    ar2[i] := nil;
  ar2 := nil;