Суть программы:
Сначала мы заполняем массив(в данной задаче ошибка в описании массива, там [1..6], а позже присваивают значение M[7], нужно исправить на [1..7] ). Далее у нас имеется цикл For k:= 2 to 7, который,начиная с M[2] проверяет условие: M[k] < n, т.е. элемент нашего массива меньше, чем n(которое изначально равно 15),если условие верно, то мы n присваиваем значение элемента массива, а в переменной z запоминаем индекс этого самого элемента. В конце мы выясним, что наименьший элемент массива равен 6(n=6), а его индекс равен 5(z=5).
P.S. Надеюсь, что доступно объяснил :)