Динамические массивы структур Опции

[compiler]

Добрый день!

у меня вопрос, как узнать высоту динамического массива записей?

пытался так, однако возникает ошибка...

Код

type
     r = record
            i1,i2:integer;
     end;

     PDynArray = ^TDynArray;
     TDynArray = array[1..1] of r;

var
   a:PDynArray;
   i:integer;

begin
     writeln(high(a));
end.

может надо произвести разименование?



заранее благодарен.