Массив в string...

[Critically]

Доброго времени суток, написал сей код:

procedure TForm1.Button1Click(Sender: TObject);
 var
  a: array of string; //динамический массив
  b: string;
  i,c: Integer;
  z   :string;
    begin
    Edit1.Text:=GetMacAdress+'5'; // мак-адрес вида хх-хх-хх-хх-хх5
    b:=Edit1.Text;
    c:=Length(b);
    SetLength(a,c);
    for i:=1 to c do
      begin
      a[i-1]:=b[i];
      memo1.Lines.Add(a[i-1]);
      end;
      Showmessage(b[i]) ;
    end;

1) Почему в Showmessage(b[i]) показывается число 5, если же поставить его раньше допустим после b:=Edit1.Text; выбивает с ошибкой
2) Как мой массив записать в string перменную, без последней цифры 5, а эту саму цифру 5 записать в другую переменную string ?

По второму вопросу у меня была такая идея, c:=c-1 и соответсвенно в мой массив записался бы мак адрес без последней цифры 5, но тогда вопрос, как можно массив перевести в string ? так как дальше мне его нужно будет сравнивать с другим string...

Суть задания такова: Получаем мак адрес с цифрой на конце, мак адрес нужно записать в один string цифру в другой...

[Скандербег]

Получаем мак адрес с цифрой на конце, мак адрес нужно записать в один string цифру в другой...

S1 := Edit1.Text; //мак адрес
//или, если нужен мак адрес без последней цифры:
S1 := Copy(Edit1.Text, 1, Length(Edit1.Text)-1);
S2 := Copy(Edit1.Text, Length(Edit1.Text), 1); //цифра в конце попадает в S2

[Yurk@]

1) Почему в Showmessage(b[i]) показывается число 5

а почему бы ему там не оказаться?)))
ведь Showmessage(b[i]); стоит уже за пределами цыкла, и т.к. цыкл отработал свое и переменная i достигла значения <длина строки> (в нашем случае это 15) то и соответственно Showmessage(b[i]); показывает последний (15й) элемент строки === 5