Невозможно выполнить оператор foreach по выражению - PascalABC.NET

Формулировка задачи:

ConsUnit.pas(14) : Невозможно выполнить оператор foreach по выражению типа PascalABCCompiler.TreeRealization.compiled_type_node Компилятор отказывается foreach-ить "var x", который Intellisense описывает как массив из link.

Unit ConsUnit;
// Структура:
// Предмет: имя
// Его свойства: массив из ссылок на массивы
type
  link=class
    name: string;
    traits: array of array of link;
    constructor Create(n: string; var t: array of array of link);
    begin
      name:=n;
      traits:=t;
      foreach var x in t do
        foreach var y in x do
        begin
          SetLength(y.traits,y.traits.length+1);
          y.traits[y.traits.length-1]:=self;
        end;
    end;
  end;
end.

Решение задачи: «Невозможно выполнить оператор foreach по выражению»

textual
                            Листинг программы 
                        

                            Unit ConsUnit;
// Структура:
// Предмет: имя
// Его свойства: массив из ссылок на массивы
type
  link=class
    name: string;
    traits: array of array of link;
    constructor Create(n: string; var t: array of array of link);
    begin
      name:=n;
      traits:=t;
      foreach var x: array of link in t do
        foreach var y: link in x do
          foreach z: array of link in y.traits do
          begin
            SetLength(z,z.length+1);
            z[z.length-1]:=self;
          end;
    end;
  end;
end.
                        