Найти первый из тех элементов вектора х, которые ссылаются на отрицательные числа - Free Pascal

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

Имеется описание:

Туре роint=^real;
     vect=array[1..100] of point;
Var x: vect;

Найти первый из тех элементов вектора х, которые ссылаются на отрицательные числа, или nil, если таких элементов нет.

Решение задачи: «Найти первый из тех элементов вектора х, которые ссылаются на отрицательные числа»

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

var p, first : point;
// ...
first := nil; // в этой переменной будет результат.
for p in x do
  if p^ < 0 then 
  begin
    first := p; break;
  end;

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

В данном коде используется язык программирования Free Pascal.

В первой строке объявлены две переменные: p и first, типа point.
Переменная first инициализируется значением nil.
В цикле for перебираются все элементы вектора x.
Если значение элемента p меньше нуля (т.е. отрицательное), то он присваивается переменной first, и цикл прерывается командой break.
Значение переменной first будет содержать первый отрицательный элемент вектора x.