[Yogurt]

Народ, нужна помощь

Код:

procedure TForm4.FormShow(Sender: TObject);
var i:integer; Lznach:array of real;
begin
      AssignFile(fl,'file\L\L-znach.txt');
      i:=1;
      reset(fl);
      while not eof(fl) do
      begin
            Readln(fl,stroka);
-->       Lznach[i]:=StrToFloat(stroka);
            i:=i+1;
      end;
end;

Мне надо, чтобы каждому элементу массива Lznach присваивалось значение из текстового файла, но в отмеченной строке он выдаёт ошибку. А если я вместо Lznach поставлю не массив, то он спокойно присваивает значение.