как создать массив

[lg12]

n:=memo1.Lines.Count; // узнаю кол-во строк в мемо
for i:=0  to n do
begin
m[i]:=m[i]+1;
a:=memo2.Lines.Strings(m[i]);
b:=memo2.Lines.Strings(m[i]);

как правильно создать массив. чтобы букве а присвоилось первое значение мемо. букве B второе значение и т.д

[Вавел из ГМТУ]

Чтото неочень понятно... Можно поподробней замысел?

[lg12]

хочу каждой букве присвоить номер строки в мемо. в мемо они идут по порядку с нуля.
я знаю количество строк в мемо. например их 4.
то получается:
а=0
б=1
с=2
д=3

[Вавел из ГМТУ]

Всёравно не понятно зачем это делать. Еслиб мне нужно было сделать привязку Буква = Значение, то яб сделал так:

Mass : Array [1..33, 1..33] of String;

Где первый столбец это а, б, в, г и т.д., а второй столбец содержит значение...

Хотя можно использовать и одномерный массив.

[Stilet]

Мож быть автору нужно что-то наподобие этого?

 var a:array['а'..'я'] of string;i:integer;
begin    
 for i:=0 to Memo1.Lines.Count-1 do begin
  a[AnsiChar(i+ord('а'))]:=Memo1.Lines[i];
 end;
end;