var
  openArray  : array of char;
  fixedArray : array[2..4] of Integer;
  multiArray : array[2..4, 1..9] of Integer;
  shortStr   : shortstring;
  longStr    : string;
  i          : Integer;

begin
  // Определение длины открытого массива
  SetLength(openArray, 17);

  // Показ длины массивов
  ShowMessage('Длина openArray = '+IntToStr(Length(openArray)));
  ShowMessage('Длина fixedArray = '+IntToStr(Length(fixedArray)));
  ShowMessage('Длина multiArray = '+IntToStr(Length(multiArray)));

  // Применение к строкам
  shortStr := 'ABCDEFGH';
  longStr  := '12345678901234567890';
  ShowMessage('Длина shortStr = '+IntToStr(Length(shortStr)));
  ShowMessage('Длина longStr = '+IntToStr(Length(longStr)));

  // Посимвольное отображение всех символов короткой строки
  for i := 1 to Length(shortStr) do
    ShowMessage('Символ '+IntToStr(i)+' = '+shortStr[i]);
end;