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

arr = []

n.times do
  arr << gets.to_i
end

arr = arr.sort
tmp = (arr[0] - arr[k-1]).abs
k.times do |i|
  num = (arr[i] - arr[i+k-1]).abs
  if num < tmp
    tmp = num
  end
end

puts tmp