Преждевременный выход из цикла - Free Pascal

Как можно осуществить досрочный выход из цикла for? Понял, что управляющую переменную изменять нельзя, есть какие-нибудь альтернативные варианты?

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

  while (s[i]<>' ') and (i<=length(s)) do
    inc(i);

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

Задана строка s.
i = 0.
Цикл while выполняется до тех пор, пока s[i] не станет пустой строкой (т.е. до конца строки).
Условие цикла while гласит, что i <= длины строки s.
Если условие истинно, то i увеличивается на 1.
Если условие ложно (т.е. s[i] = ' ' или i = длины строки s + 1), то цикл while прекращается.
Результат работы программы не указан.