Редактирование файла txt

Процедура УдалитьСтрокиТекста()
    ТекстДок = Новый ТекстовыйДокумент;
    ТекстДок.Прочитать("Текст.txt");
    Сч = 1;
    Пока Сч < ТекстДок.КоличествоСтрок() Цикл
        Строка = ТекстДок.ПолучитьСтроку(Сч);
        Если Найти(Строка, "1С") > 0 Тогда
            ТекстДок.УдалитьСтроку(Сч);
        Иначе  // Благодаря этой переменной мы
            // не пропускаем строки в тексте
            Сч = Сч + 1;
        КонецЕсли;
    КонецЦикла;
    ТекстДок.Записать("Текст.txt");
КонецПроцедуры