Novamente Array Dinâmico

Oi pessoal, já acertei o meu código para alocação estática de arrays, quero ver agora se consigo usar arrays dinâmicos para diminuir o uso de memória. Eu fiz vários testes seguindo as dicas de vocês, mas não estou conseguindo fazer o código funcionar. Minha mais recente tentativa foi a seguinte:

TYPE

TYPE1 = ARRAY OF ARRAY OF ARRAY OF DOUBLE;

VAR

xyn : TYPE1

{ Defining the geometry coordinates }

ASSIGNFILE(f1,'DATAS2.DAT');
RESET(f1);

READLN(f1,imax,jmax);

{ Setting the dimension of the dynamic array }

SETLENGTH(xyn,3);
SETLENGTH(xyn[0],imax);
SETLENGTH(xyn[1],jmax);
SETLENGTH(xyn[2],2);

FOR i := 1 TO imax DO

FOR j := 1 TO jmax DO

READLN(f1,xyn[i,j,1],xyn[i,j,2]);

{ Closing the file }

CLOSEFILE(f1);

E eu não sei o que está errado. Por favor, deem uma olhada neste trecho de código e vejam se me ajudam, obrigado. Ah, e eu uso o Delphi 10.2 como estudio para os meus programas em Object Pascal.