как переписать правильно?

"   <br><br>Процедура ФормированиеТаблицы()<br><br>  перем обр, код;<br><br> <br><br>for код=1 по  6 do<br><br>обр=Создатьобъект("Справочник.Образование_2"); <br><br>сообщить(обр.ТекущийДокумент());<br><br> Enddo<br><br>КонецПроцедуры   "

"Если ты русский, так и пиши по русски ...<br><br>а если создаёшь "справочник", так и получай "Элемент", а не "Документ" а не выё .... живайся )<br><br>и, докучи, неплохо бы сначала спозиционироваться, а уж потом Сообщить(...)<br><br>Так криво спросил, что не остановиться )<br><br><br><br>Процедура ФормированиеТаблицы() <br><br>  For Код=1 to 6 Do <br><br>    Обр = CreateObject("Справочник.Образование_2"); <br><br>    //а теперь стоит подумать, зачем это всё, например  <br><br>    If Обр.FindByCode(Код,0) = 1 Then<br><br>      Message(Обр.CurrentItem()); <br><br>    EndIf;<br><br>  EndDo; <br><br>КонецПроцедуры <br><br><br><br> "

"Даже если за тем же, то нет смысла н раз создавать объект<br><br><br><br>Процедура ФормированиеТаблицы() <br><br>Обр = СоздатьОбъект("Справочник.Образование_2"); <br><br>Для Код=1 по 6 Цикл <br><br>Если Обр.НайтиПоКоду(Код,0) = 1 Тогда <br><br>Сообщить(Обр.ТекущийЭлемент()); <br><br>КонецЕсли; <br><br>КонецЦикла; <br><br>КонецПроцедуры <br><br><br><br>"