Найти первый по порядку элемент линейной таблицы, равный 1 - Free Pascal (433)

Найти первый по порядку элемент линейной таблицы, равный 1.

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

ind:=0;
for i:=1 to n do
 begin
  if x[i]=1 then
   ind:=i;
   break;
 end;
if ind=0 then
 writeln('Нет таких элементов.')
else
 writeln(ind);

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

Переменная ind инициализируется значением 0.
Происходит цикл по элементам массива x от индекса 1 до n.
Внутри цикла проверяется, равен ли текущий элемент массива x значению 1.
Если текущий элемент массива x равен 1, то значение переменной ind присваивается текущему индексу.
После нахождения первого элемента равного 1, цикл прерывается командой break.
Если после цикла значение переменной ind осталось равным 0, выводится сообщение Нет таких элементов..
Если после цикла значение переменной ind не равно 0, выводится значение переменной ind.