Привести тип object к массиву - PascalABC.NET

Формулировка задачи:

                    Листинг программы
                
var
  Arr: array of byte := (1, 2, 5);
  Obj: object := object(arr);
 
begin
 write(obj);
end.

Что сделать с Obj (привести к массиву, записать в новый?) чтобы можно было обращаться к отдельным элементам?

Решение задачи: «Привести тип object к массиву»

Листинг программы

type T = array of byte;
var
  Arr: array of byte := (1, 2, 5);
  Obj: object := object(arr);
 
begin
 writeln(obj);
 T(obj)[0] := 29;
 writeln(obj); 
end.

Объяснение кода листинга программы

В этом коде:

Объявляется тип T, который является массивом байтов.
Объявляется переменная Arr типа array of byte и инициализируется массивом (1, 2, 5).
Объявляется переменная Obj типа object, и ей присваивается значение object(arr), где arr это ссылка на переменную Arr.
Выводится значение переменной Obj.
Элементу массива T(obj) присваивается значение 29.
Выводится значение переменной Obj.