[Phedor]

Код:

begin
  AssignFile(fl,'file\L\L-znach.txt');
  reset(fl);
  Setlength(Lznach, 0);
  i:=0;
  while not eof(fl) do
  begin
    SetLength(Lznach, Length(Lznach) + 1);
    Readln(fl, Lznach[i]);
    inc(i);
  end;
  CloseFile(fl);
end;