Не копирует значение

[Sane2k]

Имеется следующий код:

var
f:TStringList;
i:integer;
s:string;
alfavit: array of char;
begin
f:=TStringList.Create();
f.LoadFromFile('c:\in.txt');
s:=f.Strings[0];
alfavit[0]:=s[1];// Что здесь не так??
for i:=2 to length(s) do
 begin
 if (s[i] <> alfavit[i-1])
 then alfavit[i]:=s[i];
 end;
for i:=1 to 10 do
 write(alfavit[i]);
end.

По каким-то причинам отдельный символ строки не копирует свое значение в массив. Что я сделал не так?
Delphi ошибок или предупреждений не выдает .

Все разобрался. Тему можно закрывать.

[s-andriano]

Для того, чтобы ответить на Ваш вопрос, нужно знать, а что, собственно, Вы хотели сделать.
Вы это знаете, а мы - нет.

[evg_m]

var
 f:TStringList;
 i:integer;
 s:string;
 alfavit: array[?..?] of char;

[Stilet]

alfavit[0]:=s[1];// Что здесь не так??

Все. Ты описал alfavit: array of char; который является указателем, но не выдал ему через SetLength память. И зачем тебе array of char; если есть более удобный string.
?