for i:=1 to len do // обходим последовательность begin if ((my_sequence[i] = stop_symb) then // если выполнено какое-то условие break; // выходим из текущего цикла end;