for (i := -9 to 9) do
begin
    if (i*i*i-i*i == n) then
    begin
        x := i;
        break;
    end;
end;