type not found for array of anonymous record

[User4martin]

Run to "write" line

(pdr) print x
[ERROR] <error: element type not found>

program project1; {$Mode objfpc}
type
  TRec = array of record
    a: byte;
  end;
var x : TRec;

begin
  SetLength(x,2);
  x[0].a := 12;
  write(x[0].a);
end.

---

Same for

(pdr) print x
X = TRec { a: 12, b: <error: type not found> }

program project1; {$Mode objfpc}
type
  TRec = record
    a: byte;
    b: record
      c: word;
    end;
  end;
var x : TRec;

begin
  x.a := 12;
  x.b.c := 11;
  write(x.a);
end.

[User4martin]

And also for types declared nested in other types:

(pdr) p a
[ERROR] <error: type not found>

program project1;
{$Mode objfpc}

type
  T1 = class
  public type
    TFoo = record a,b,c: word; end;
  end;
  TFoo = record x: qword end;
var
  a: T1.TFoo;
  b: TFoo;

begin
  a.a := 1;
  a.b := 2;
  b.x:= 11;
  writeln;
  writeln;
  writeln;
  writeln;
end.