Помогите прошу с программой в паскале

задать одномерный массив z(n элементов) на промежутке [-28;97] с помощью цикла while..do.вывести на экран только те элементы которые совпадают с индексом и посчитать их кол-во (составить программу и начертить блок-схему)