n, k = gets.chomp.split.map(&:to_i)
arr = Array.new(n)
n.times do |i|
	arr[i] = gets.chomp.to_i
end
arr = arr.sort

max = 1145141919
0.upto(n - k) do |i|
	sa = arr[i + k - 1] - arr[i]
	max = sa if max > sa
end
puts max