[vasketsov]

var x:array of integer;
begin
 SetLength(x, 50);
 x[49] := 49;
 SetLength(x, 0);
end;

еще вопросы?