SetLength для массива при компиляции выдаёт ошибку

[Gausse]

program Kurs_work;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  Row=record
    lex:array of string;
    num:integer;
  end;

var
  SourceFile:textfile;
  temp:string;
  Flag:boolean;
  i:integer;
  Massive_Rows:array of string;
  Massive_Lexem:array of row;
  Num_Rows:integer;

procedure Lexem(m_r:array of string; var m_l:array of row);
  var
    j,i:integer;
    temp:string;
  begin
    for i := 1 to length(m_r) do
      begin
      temp:=m_r[i];
      setlength(m_l,i);
      m_l[i].num:=1;
      setlength(m_l[i].lex,m_l[i].num);

      while j<>length(temp) do
        begin
          if temp[j] in ['A'..'z','А'..'я'] then begin
                                                    m_l[i].lex[m_l[i].num]:=m_l[i].lex[m_l[i].num]+temp[j];
                                                    inc(j);
                                                 end
          else
              begin
                while not(temp[j] in ['A'..'z','А'..'я']) do
                  inc(j);
                inc(m_l[i].num);
                setlength(m_l[i].lex,m_l[i].num);
              end;
        end;
      end;
  end;
begin
//-----------------------------------------
  Num_Rows:=1;
  Flag:=false;
  write('Type the name of input file: ');
  readln(temp);

  for i := 1 to length(temp) do
    if temp[i]='.' then Flag:=true;

  if Flag=false then temp:=temp+'.asm';
//-----------------------------------------
  assign(SourceFile,temp);
  reset(SourceFile);

  while not eof(SourceFile) do
    begin
      readln(SourceFile,temp);
      setlength(Massive_Rows,Num_Rows);
      Massive_Rows[Num_Rows]:=temp;
      inc(Num_Rows);
    end;

  Lexem(Massive_Rows,Massive_Lexem);
  close(SourceFile);
  readln;
end.

Доброго времени суток! Такая ситуация. В 31 строчке функция перераспределения памяти массива структур выбивает ошибку. И у меня нету никаких идей. Буду благодарен за помощь.


______________
Исправил название Вашей темы
убедительная просьба - на будущее.
Называйте тему более информативно, пожалуйста.
Тема должна адекватно отражать суть решаемой задачи/проблемы.

Модератор.

[Serge_Bliznykov]

потому что Вы путаете открытые массивы (как в вашем случае)
и динамические массивы.
Вынесите описание массива в отдельный тип и передавайте структуру этого типа!

примерно так:

type
  Row=record
    lex:array of string;
    num:integer;
  end;
  ar_string = array of string;
  ar_row = array of row;

var
  SourceFile:textfile;
  temp:string;
  Flag:boolean;
  i:integer;
  Massive_Rows:ar_string;
  Massive_Lexem:ar_row;
  Num_Rows:integer;

procedure Lexem(var m_r: ar_string; var m_l:ar_row);

[Gausse]

Премного благодарен за помощь!

[GunSmoker]

http://www.transl-gunsmoker.ru/2009/09/of-const.html