n, k = gets.chomp.split(' ').map(&:to_i)

ar = []
n.times do |n|
  ar << gets.chomp.to_i
end

ar = ar.sort.reverse

min = ar.first * k

(0..n-k).each do |i|
  n = ar[i] - ar[i+k-1]
  if n < min
    min = n
  end
end

puts min
