Найти номер максимального элемента массива, который меньше ста - PascalABC.NET

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

Найти номер максимального элемента массива, который меньше ста. Известно, что значения элементов массива положительны и не превосходят 200.

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

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

begin
  var arr: array[1..10] of integer;
  
  for var i := 1 to 10 do
    arr[i] := Random(201);
  var a: integer;
  var k: integer;
  for k := 1 to 10 do
    if arr[k] <100 then break;
  a := arr[k];
  for var i := k + 1 to 10 do
    if (arr[i] > a) and (arr[i]<100) then
      a := arr[i];
  writeln(a);
end.

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

Создается массив arr размером от 1 до 10
В цикле заполняется значениями от 1 до 100 с помощью функции Random(201)
Создаются переменные a и k
В цикле ищется первый элемент меньше 100, и значение этого элемента присваивается переменной a
Если найденный элемент меньше 100, то цикл прерывается
Если найденный элемент больше 100, то цикл прерывается и выводится значение переменной a
Если цикл не прервался, то ищется максимальное значение в оставшейся части массива и присваивается переменной a
Цикл прерывается, если найденное значение больше 100
Выводится значение переменной a