UnPazz

for i:=0 to 4 do a[i]:=i;

freeandnil(a);

fillchar(a,sizeof(a),char(0));