Одномерные массивы - Turbo Pascal

Формулировка задачи:

Подскажите пожалуйста, как определить здесь позиции и значения первых 3 - отриц. элементов. Массив сформирую. Заранее спасибо . Вот условие: Задан одномерный массив F[n].Определить позиции и значения первых 3-х отрицательных элементов.

Решение задачи: «Одномерные массивы»

Листинг программы

if counter<3 then write('В массиве нет трех отрицательных элементов');

Объяснение кода листинга программы

В условии используется переменная counter, которая инициализирована значением меньше 3.
Если значение переменной counter меньше 3, то выводится сообщение В массиве нет трех отрицательных элементов.
Значение переменной counter увеличивается на единицу после каждой итерации цикла.
Если в массиве есть три отрицательных элемента, то значение переменной counter станет равным 3 после трех итераций цикла.
Если в массиве нет трех отрицательных элементов, то значение переменной counter будет увеличиваться на единицу до тех пор, пока не станет равным 3.