"Array has no bound"

Run to write.

```
(pdr) p r
R = array of TObject (Length=5) = [nil, nil, nil, nil, nil]
(pdr) p r[1]
[ERROR] Array has no bounds info
```

`r[1]` should return one entry?
same error for slices



```
program project1;
{$Mode objfpc}
type
//  TObj = record
//  end;
  ta = array of TObject;
var
  r: Ta;

begin
  SetLength(r, 5);
write;
end.
```