Удаление организации

УТ 11.1 редакции 11.1.1.13. Удаляю организацию, написал обработку, ниже код:

&НаСервере
Процедура ПереборСервер()

    МассивМой = Новый Массив;
    МассивМой.Добавить(Объект.СкладИОрганиз);
    ТЗ = НайтиПоСсылкам(МассивМой);
    Для Каждого Стр Из ТЗ Цикл
        Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(Стр.Данные)) или Документы.ТипВсеСсылки().СодержитТип(ТипЗнч(Стр.Данные)) Тогда
            МетаданныеОбъекта = Стр.Данные.Метаданные();
            Если ТипЗнч(Объект.СкладИОрганиз) = Тип("СправочникСсылка.Организации") и МетаданныеОбъекта.Реквизиты.Найти("Организация")<> Неопределено Тогда
                Если Стр.Данные.Организация = Объект.СкладИОрганиз Тогда
                    Если Стр.Данные.ПометкаУдаления = Ложь Тогда
                        ПометкаНауДаление(Стр.Данные);
                    КонецЕсли;
                КонецЕсли;
            Иначе
                Если Стр.Данные.ПометкаУдаления = Ложь Тогда
                    ПометкаНауДаление(Стр.Данные);
                КонецЕсли;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    //Для Каждого Стр Из Метаданные.Документы Цикл
    //
    //    Сообщить(Стр);
    //КонецЦикла;

КонецПроцедуры // ПереборСервер()

Процедура ПометкаНауДаление (ПолСсылку)

    Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(ПолСсылку)) Тогда
        ПолОбъект = ПолСсылку.ПолучитьОбъект();
        ПолОбъект.УстановитьПометкуУдаления(Истина,Истина);
        ПолОбъект.Записать();
    ИначеЕсли Документы.ТипВсеСсылки().СодержитТип(ТипЗнч(ПолСсылку)) Тогда
        ПолОбъект = ПолСсылку.ПолучитьОбъект();
        МассивМой1 = Новый Массив;
        МассивМой1.Добавить(ПолСсылку);
        ТЗ1 = НайтиПоСсылкам(МассивМой1);
        Для Каждого Стр1 Из ТЗ1 Цикл
            Если Документы.ТипВсеСсылки().СодержитТип(ТипЗнч(Стр1.Данные)) Тогда
                Если Стр1.Данные.ПометкаУдаления = Ложь Тогда
                    ПолОбъект1 = Стр1.Данные.ПолучитьОбъект();
                    ПолОбъект1.УстановитьПометкуУдаления(Истина);
                    ПолОбъект1.Записать();
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;
        Если ТЗ1.Количество() = 0 Тогда

            ПолОбъект.УстановитьПометкуУдаления(Истина);
            ПолОбъект.Записать();

        КонецЕсли;
    КонецЕсли;

КонецПроцедуры

Проблема в том что есть документы на которые тоже есть ссылки, к примеру "ПеремещениеТоваров" на него ссылается документ "ПриходныйОрдерНаТовары" у которого нет реквизита организация, и для пометки этих документов на удаление я использую "НайтиПоСсылкам" в цикле, что довольно тормозит обработку. Прошу помочь оптимизировать код, или дать какие-нибудь идеи как это сделать, а то на помечение 40 тысяч объектов уходит часов 9-10