n = gets.to_i
a = gets.split.map(&:to_i)
b = gets.split.map(&:to_i)
cnt = 0
sum = 0
c = []
n.times do |i|
  e = a[i] - b[i]
  if e.negative?
    cnt += 1
    sum += e
    e = 0
  end
  c << e
end
c.sort.reverse.each do |x|
  break if sum >= 0
  sum += x
  cnt += 1
end
puts cnt > n ? "-1" : cnt