"type not found" for open array

pause at line 5 "write(a[1])

```
(pdr) inspect b
b = array of LongInt (Length=3) = [1, 2, 3]
(pdr) inspect a
[INSPECT] Error: type not found for: a
```


```
program project1;
type TIntA = array of integer;
procedure Bar( a: array of integer; b: TIntA);
begin
  write(a[1]);
end;

var c: TIntA;
begin
  SetLength(c, 3);
  c[0] := 1;
  c[1] := 2;
  c[2] := 3;
  Bar([1,2,3], c);
end.
```