using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace fasor
{
    internal class Program
    {
        static void Main(string[] args)
        {
            //Beolvasás:
            int[] st = Console.ReadLine().Split().Select(int.Parse).ToArray();
            int N = st[0];
            int K = st[1];
            //Tömbnek kezdő-végző elemek
            int[] X = new int[N + 2 * K];
            List<int> peakpoint = new List<int>();

            /*for (i = 0; i < K; i++)
            {
                X[i] = 0;   
            }
            */

            //int[] st2 = new int[N+1]; //Emiatt miért akad ki hogyha ez nincs kikommentezve és a következő sorban az st helyett az st2-t akarnám
            st = Console.ReadLine().Split().Select(int.Parse).ToArray(); //FONTOS: 48k karakternél kiakad? Miért?
            

            for (int i = K-1; i<=st.Length-K; i++) //Nem kellene K-tól indexálni, mivel kimaradnak így esetek
            {
                if (st[i] >= st[i - 1] && st[i] >= st[i+1])
                {
                    peakpoint.Add(i);
                }
            }

            int jopont = 0;
            bool volt = false, vege = false;
            foreach (var item in peakpoint)
            {
                vege = true;
                for (int i = item-K; i < item+K; i++)
                {
                    if (st[i] > st[item])
                    {
                        vege = false;
                        break;
                    }
                    else
                    {
                        jopont = item;
                    }
                }
                if (vege)
                {
                    volt = true;
                    break;
                }
            }


            /*
            //Algoritmus:
            //Bool tokeletes = true;
            //Kiindul egy fától és megnézi hogy annak K környezében van-e magasabb (+- <-- How? K elemmel feltöltjük a tömb elejét és végét, így nem fog kiindexelni), for ciklussal végigmegy -K-tól K-ig, ha talál egy nagyobb akkor break, tokeles = false.
            //If tokeletes = true akkor break;, ha nem az akkor obviously megy tovább a következő fára ami a foreach következő eleme lesz
            int[] peakpontoktomb = peakpoint.ToArray();
            int faszam = 0;
            //int tokeletes = 0; //-1 - false; 0 - idk; 1 - true
            bool volt = false; //Talált-e ilyen intervallumot
            for (int j = 0; j < peakpontoktomb.Length-K;)
            {
                faszam++;
                bool vege = true;
                for (i = j-K; i <= j+K; i++)
                {
                    if (X[i] > X[j])
                    {
                        vege = false;
                        break;
                    }
                }
                if (vege) //Ha tökéletes volt az előző cikluslépésben látott mutatvány
                {
                    volt = true;
                    break;
                }
                j = peakpontoktomb[faszam];
            }
            */
            if (volt)
            {
                Console.WriteLine(jopont+1);
            }
            else
            {
                Console.WriteLine(-1);
            }

            Console.ReadKey();

        }
    }
}