Pascal не поддерживает. Используют аналоги:
type mA=array[1..1] of TRab;
pA=^mA;
var A: pA;
далее к A можно применить выделение памяти GetMem и обращаться к массиву через указатели типа A^[i]
В Примере классов с использованием этого такое выделение памяти приводит к сообщению о выходе за граница массива:
type
Trab=class
suc: Trab;
FIO: string;
NK: kf;
stavka: integer;
constructor Create(Fam:string;nkaf:integer);
end;
type mA=array[1..1] of TRab;
pA=^mA;
Type Tarr = class {динамический массив элементов Trab}
public
n: integer;
A: pA;
constructor Create;
procedure add(val: Trab);
end;
procedure Tarr.add(val: Trab);
var siz:word;
begin
n:=n+1; siz:=n*SizeOf(mA); GetMem(A,siz);
A^[n]:=val; //здесь при n>1 выскакивает ошибка выход за границы массива
end;
