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

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

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

for i:=1 to n do
 if a[i]=1 then
  begin
   k:=i;
   break;
  end;

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

В данном коде выполняется следующая последовательность действий:

В переменной i устанавливается значение 1.
Задается условие, при котором будет выполняться блок кода внутри цикла. Условие гласит, что значение элемента массива a с индексом i равно 1.
Если условие выполняется, то в переменную k записывается значение i.
Условие прекращает выполняться (завершается цикл) благодаря ключевому слову break.
В переменной i увеличивается значение на 1.
Цикл продолжается до тех пор, пока условие не прекратит выполняться.
Значение переменной k будет содержать индекс первого элемента массива a, равного 1.