Остановка цикла без break - Free Pascal

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

                    Листинг программы
                
For i:=1 to N-1 do begin
  If a[i]>a[i+1] then
    k1:=false;
end;

Выполняю проверку массива на упорядоченность по возрастанию. Помогите пожалуйста сделать так чтобы цикл остановился и не выполнял проверку оставшихся элементов как только k1=false. Без break и go to (может быть через while, for или if?).

Решение задачи: «Остановка цикла без break»

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

i:=1; while (i<n) and (a[i]<a[i+1]) do Inc(i);
WriteLn(i=n);

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

i — это счетчик, который итерирует по массиву a.
n — это размер массива a.
Цикл while выполняется до тех пор, пока i меньше n и значение a[i] меньше значения a[i+1].
Условие цикла while может быть записано как (i<n) and (a[i]<a[i+1]).
Если условие истинно, то i увеличивается на единицу.
Когда условие становится ложным, цикл прекращается.
WriteLn(i=n) — это сообщение, которое выводится в консоль.