Вопрос по динамическим массивам в Делфи

[Yegor]

Есть конструкция:

type
rec1 = record
a: array of integer;
end;

var

val: array of rec1;


begin
setlength(val, 1);
setlength(val[0].a, 1000);
setlength(val, 0);

end;


Вопрос: после выполнения строки "setlength(val, 0);" освободиртся ли память занимаемая под массив "a: array of integer;" или будет утечка памяти?