n, k = gets.chomp.split(" ").map(&:to_i)
k = k-1
ary = []
n.times do |i|
  ary << gets.chomp.to_i
end
ary.sort!
sa = []
ary.count.times do |i|
  if ary.count <= i+k
    break
  end
  sa << ary[i+k] - ary[i] 
end
puts sa.min