wordArray : Array [Word] of Integer; // Статический, размер=High (Word)

multiArray : Array [Byte, 1..5] of char; // Статический массив, 2 измерения

rangeArray : Array [5..20] of string; // Статический массив, размер = 16

ShowMessage('Длина wordArray = '+IntToStr(Length(wordArray)));

ShowMessage('Самый маленький элемент wordArray = '+IntToStr(Low(wordArray)));

ShowMessage('Самый большой элемент wordArray = '+IntToStr(High(wordArray)));

ShowMessage('Длина multiArray = '+IntToStr(Length(multiArray)));

ShowMessage('Самый маленький элемент multiArray = '+IntToStr(Low(multiArray)));

ShowMessage('Самый большой элемент multiArray = '+IntToStr(High(multiArray)));

ShowMessage('Длина rangeArray = '+IntToStr(Length(rangeArray)));

ShowMessage('Самый маленький элемент rangeArray = '+IntToStr(Low(rangeArray)));

ShowMessage('Самый большой элемент rangeArray = '+IntToStr(High(rangeArray)));

// Полный диапазон статического массива доступен до назначения,

ShowMessage('wordArray элемент 7 = '+IntToStr(wordArray[7]));

ShowMessage('wordArray элемент 20 = '+IntToStr(wordArray[20]));

// Теперь используем индексацию для отображения 2-х элементов

multiArray : Array of Array of string; // Многомерный массив

ShowMessage('Длина byteArray = '+IntToStr(Length(byteArray)));

ShowMessage('Самый маленький элемент byteArray = '+IntToStr(Low(byteArray)));

ShowMessage('Самый большой элемент byteArray = '+IntToStr(High(byteArray)));

// Заполнение этого массива - помните, что динамические массивы начинаются с 0

ShowMessage('byteArray элемент 2 = '+IntToStr(byteArray[2]));

ShowMessage('byteArray элемент 4 = '+IntToStr(byteArray[4]));

// Установка длины 1-ого измерения многомерного массива

// Передача неопределенного массива как динамический массив подпрограмме

// Передача этого предопределенного массива как открытый массив подпрограмме

// Передача подпрограмме числа символов как открытый постоянный массив

// Процедура, которая модифицирует динамический размер массива

// ВАЖНО - обратите внимание, что тип массива здесь не должен быть определен -

// мы должны использовать тип массива, чтобы избежать массива,

procedure TForm1.FurnishDynamicArray(var typeArray : TCharArray);

// Заполнение этого массива - помните, что динамические массивы начинаются с 0

procedure TForm1.ShowOpenTypeArray(typeArray : Array of char);

// Процедура, которая принимает открытый постоянный массив

procedure TForm1.ShowOpenConstArray(const constArray : Array of const);