Хранение в Массиве строк с более 255 символами

local[91]:='Неправильный выбор транзитной сети.';
local[95]:='Неправильное или непредусмотренное сообщение.\nПоявляется только тогда, когда в классе недействительных сообщений не возникает других значений.';
local[96]:='Отсутствует обязательный информационный элемент.\nОборудование, создающее это значение, получило сообщение, не содержащее информационного элемента, который должен присутствовать в сообщении до того, как оно может быть подвергнуто обработке.';
local[97]:='Тип сообщения не существует или не реализован.\nОборудование, создающее это значение, получило сообщение, тип которого ему не знаком, потому что это сообщение либо не расшифровано, либо расшифровано, но не введено в эксплуатацию на данном оборудовании.';
local[98]:='Сообщение несовместимо с состоянием вызова или его тип не существует или не введен в эксплуатацию.\nОборудование, создающее это значение, получило сообщение, которое оно рассматривает как не допустимое в состоянии вызова; или же было получено сообщение STATUS, указывающее на несовместимое состояние вызова.';
local[99]:='Информационный элемент не существует или не реализован.\nОборудование, создающее это значение, получило сообщение, включающее неопознанные информационные элементы, так как идентификатор информационного элемента не определен, а если определен, то не введен в эксплуатацию на инструменте, создающем новое значение. Однако информационный элемент не обязательно должен присутствовать в сообщении для того, чтобы дать возможность оборудованию, создающему данное значение, провести его обработку.';
local[100]:='Сообщение содержит некорректный информационный элемент.\nОборудование, создающее данное значение, получило информационный элемент, который оно ввело в эксплуатацию. Однако оборудование было не в состоянии ввести в эксплуатацию код, так как одно или несколько полей были неправильно закодированы.';

uses spo;
...
var
  sep: char;
  myStr: string; // Полагаю, массив local уже описан
  i: integer;
begin
  sep := #1;   // Чтобы не было совпадений (можно и другой взять)
  myStr := ''; // Обнулили

  for i := 91 to 100 do
    myStr := myStr + sep + local; // Запихали (можно сохранять в файл или еще куда)

  local[95] := GetValueByIndex(myStr, 5); // Теперь можем вынуть любую
//local := GetValueByIndex(myStr, i-90);
end;

const
  a1 = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя ';
  a2 = 'прстуфхцчшщъыьэюя абвгдеёжзийклмно';
var
  j: integer;
...
  for i := 1 to length(myStr) do
  begin
    j := pos(''+myStr, a1);
    if(j>0)then
      myStr := a2[j];
  end;