Erro 201

Oi pessoal, estou com problema na definição de array dinâmico. Veja esta parte do meu código:

UNIT Geral;

Interface

TYPE

TYPE1 = ARRAY OF ARRAY OF ARRAY OF DOUBLE;

VAR

imax,jmax : INTEGER;
xyn : TYPE1;

Implementation

____________________________________________________________________________________________

PROCEDURE READ(VAR imax,jmax:INTEGER;VAR xyn:TYPE1);

f1 : TEXTFILE;
i,j : INTEGER;

BEGIN

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

READ(f1,imax);
READ(f1,jmax);

FOR i := 1 TO imax DO

FOR j := 1 TO jmax DO

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

CLOSEFILE(f1);

_____________________________________________________________________________________

BEGIN

SETLENGTH(xyn,imax,jmax,2);

END.

Quando compilo está tudo ok. O problema é na execução, aonde aparece o erro 201 quando tento executar a procedure acima. Vi que o erro 201 é problema na verificação de faixa, mas não enxergo aonde está o erro. Por favor, me deem uma ajuda. Obrigado, Edisson Sávio.