Exit и Break не прерывает цикла

[DarkHacker]

Я уже добился работоспособности кода, спасибо. Ваши советы навели на решение.
Я понял приблизительно куда копать, потому что конкретно этот код просто пример.

 result := 0;

  if (length(numbers) < 2) then Exit;

Спасибо. Я сделал точно такое же решение в другом месте кода, а в этом недосмотрел!

[Serge_Bliznykov]

Спасибо. Я сделал точно такое же решение в другом месте кода, а в этом недосмотрел!

следите, чтобы внутри функции не было веточек, пройдя по которым значения функции не присваивается.
Самый простой способ - присваивать выходное значение (result) СРАЗУ при входе в функцию.
Это нам позволяет, например, просто написать Exit (ведь значение мы уже присвоили, значит, функция вернёт КОРРЕКТНЫЙ результат).

Рад, что Вы разобрались.

Тему прикрываем?!

[DarkHacker]

Да закрываем, еще раз спасибо Вам большое!)