Не работает команда

Процедура Команда2НаСервере()
	МассивФаилов = НайтиФайлы("C:\", "*.txt");
Текст = Новый ТекстовыйДокумент;
    Для Каждого Фаил из МассивФаилов Цикл
        Текст.Прочитать(Фаил.ПолноеИмя);
		Для НомерСтроки = 1 по Текст.КоличествоСтрок() Цикл
            Стр = Текст.ПолучитьСтроку(НомерСтроки);
			если объект.Реквизит1 = Лев(Стр, 4)тогда
			МассивРеквизитов = СтрРазделить(Стр,"-",Ложь);
			Объект.Реквизит2 = МассивРеквизитов[1];
			Объект.Реквизит3 = МассивРеквизитов[2];   
			Объект.Реквизит4 = МассивРеквизитов[3];
			Сообщить(Стр);
			конецесли;
	КонецЦикла;
    КонецЦикла;