СРОЧНО!Дан массив из 15 действительных чисел определить индексы элементов массива, значение которых равно значению первого элемента массива, если такого массива нет вывести соответствующее собщение на экран

Невнятно как-то сформулировано - то индексы найти, то массива нету... Пишу, как понял. ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\"; ПЕР   массив: РЯД 15 ИЗ ВЕЩ;   сч, найдено: ЦЕЛ;   найденное, индексы: ДОСТУП К РЯД ИЗ ВЕЩ; УКАЗ   найдено := 0;   СОЗДАТЬ(индексы, РАЗМЕР(массив) - 1);   ОТ сч := 1 ДО РАЗМЕР(массив) - 1 ВЫП     ЕСЛИ массив[сч] = массив[0] ТО       найденное[найдено] := сч;       УВЕЛИЧИТЬ(найдено)     КОН   КОН;   ЕСЛИ найдено = 0 ТО Вывод.Цепь("Не найдено.")   ИНАЧЕ     СОЗДАТЬ(индексы, найдено);     ОТ сч := 0 ДО найдено - 1 ВЫП       индексы[сч] := найденное[сч]     КОН;     найденное := ПУСТО   КОН КОН Задание.