{$mode objfpc}
program ideone;
 
type
  TA=record a:Integer; end;
  TLA=array of TA;
  TB=record b:Integer; La:TLA; end;
  TLB=array of TB;
  TX=record x:Integer; Lb:TLB; end;
 
function test:TX;
begin
  SetLength(Result.Lb,2);
  SetLength(Result.Lb[0].La,2);
  SetLength(Result.Lb[1].La,2);
  Result.Lb[0].La[0].a:=11;
  Result.Lb[0].La[1].a:=12;
  Result.Lb[1].La[0].a:=21;
  Result.Lb[1].La[1].a:=22;
end;
 
var R:TX;
var Y,X:Integer;
begin
  R:=test;
  for Y:=0 to High(R.Lb) do
  begin
    for X:=0 to High(R.Lb[Y].La) do Write(' ',R.Lb[Y].La[X].a);
    WriteLn;
  end;
end.

eyRtb2RlIG9iamZwY30KcHJvZ3JhbSBpZGVvbmU7Cgp0eXBlCiAgVEE9cmVjb3JkIGE6SW50ZWdlcjsgZW5kOwogIFRMQT1hcnJheSBvZiBUQTsKICBUQj1yZWNvcmQgYjpJbnRlZ2VyOyBMYTpUTEE7IGVuZDsKICBUTEI9YXJyYXkgb2YgVEI7CiAgVFg9cmVjb3JkIHg6SW50ZWdlcjsgTGI6VExCOyBlbmQ7CiAgCmZ1bmN0aW9uIHRlc3Q6VFg7CmJlZ2luCiAgU2V0TGVuZ3RoKFJlc3VsdC5MYiwyKTsKICBTZXRMZW5ndGgoUmVzdWx0LkxiWzBdLkxhLDIpOwogIFNldExlbmd0aChSZXN1bHQuTGJbMV0uTGEsMik7CiAgUmVzdWx0LkxiWzBdLkxhWzBdLmE6PTExOwogIFJlc3VsdC5MYlswXS5MYVsxXS5hOj0xMjsKICBSZXN1bHQuTGJbMV0uTGFbMF0uYTo9MjE7CiAgUmVzdWx0LkxiWzFdLkxhWzFdLmE6PTIyOwplbmQ7Cgp2YXIgUjpUWDsKdmFyIFksWDpJbnRlZ2VyOwpiZWdpbgogIFI6PXRlc3Q7CiAgZm9yIFk6PTAgdG8gSGlnaChSLkxiKSBkbwogIGJlZ2luCiAgICBmb3IgWDo9MCB0byBIaWdoKFIuTGJbWV0uTGEpIGRvIFdyaXRlKCcgJyxSLkxiW1ldLkxhW1hdLmEpOwogICAgV3JpdGVMbjsKICBlbmQ7CmVuZC4=