Оператор выхода EXIT

<оператор-exit> = exit;

Оператор exit служит для немедленного выхода из процедуры или обработчика событий, после чего программа переходит к исполнению следующего за процедурой оператора или к следующему событию.

Пример

/* Производится сканирование таблицы сотрудников на предмет
наличия сотрудника с фамилией "Сидоров". В случае, если такой
сотрудник найден, осуществляется выход с помощью оператора exit,
иначе выдается диагностическое сообщение. */
begin
		...
		if modifier getFirst Employee = tsOk 
		then
				do
						if name = 'Сидоров' then exit;
				while modifier getNext Employee = tsOk;
				Message('Сидоровых не обнаружено');
end;