Pascal: fájolvasásnál dinamikus tömböt nem lehet pufferként felhasználni?

Mivel dinamikus a tömb ezért mind a beolvasásnál mind a kiírásnál meg kell adni az első elemét valahogy így:

program dinamikus_olvasas;

var

data : array of byte;

f, f2 : file of byte;

mennyi,nr,nw:longint;

begin

assign(f,paramstr(1));

reset(f);

assign(f2,paramstr(2));

rewrite(f2);

mennyi:=91000;

setlength(data,mennyi);

repeat

blockread(f,data[0],mennyi,nr);

blockwrite(f2,data[0],nr,nw);

until nr=0;

close(f);

close(f2);

end.