Массивы с одинаковыми элементами

[Kronos913]

Не знал как назвать тему... В общем такая вот задача

Если несколько массивов констант string

s1: array [1..10] of string = ({что-то там})
s2: array [1..15] of string = ({что-то там})
s3: array [1..20] of string = ({что-то там})
s4: array [1..5] of string = ({что-то там})

И вот мне нужен еще один массив s0 констант типа стринг, все элементы которого будут дублировать НЕКОТОРЫЕ элементы выше перечисленных массивов
1й элемент из s1, пятый элемент из s3, шестой из s2, первый из s4, девятый s1, и т.д.

Вопрос: как организовать еще один массив констант так, чтобы в программе не дублировались 2 раза одни и те же данные, чтобы к одному и тому же месту памяти можно было добраться и через массивы из первого списка и через массив s0

[evg_m]

если s1, s2.... есть const то наверное можно так

s5: array of string = ( s1[5], s2[3], s3[9], ..... );

но все это экономия "на спичках" и потеря "читабельности" кода.

[Kronos913]

Я попробовал сделать так, компилятор выдает ошибку

[Kronos913]

Пока что самый кустарный способ решения задачи, который мне пришел в голову - это создать массивы типа byte, в которых хранятся номера элементов

По сути, мне нужно в двух местах этими строками наполнить список ComboBox листа

[evg_m]

По сути, мне нужно в двух местах этими строками наполнить список ComboBox листа

почему не заполнить эти списки во время конструирования форм ? (через инспектор объектов)

[evg_m]

но если все-таки хочется делать это в коде программы
1 вар.

const m1 ='раз;два;три;четыре;пять';
m2 ='one;two;three';

combobox1.items.commatext:=m1;
combobox2.items.commatext:=m2;

2 вар.

const 
  s1='раз';
  s2='два';
  s3='три';

const 
  m: array[1..3] of string =(s1, s2, s3 );

3 вар.

 const 
  s1 ='one';
  s2 ='two';
  s3 ='three';
  s4 ='for';

const m1 =s1 +';' + s2 +';' +s3;
    m2 =s3 +';' +s2 +';' +'other';

combobox1.items.commatext:=m1;
combobox2.items.commatext:=m2;