Что не так, как сделать получить по отдельности значения:
А = Поле;
Пока ЗначениеЗаполнено(А) Цикл
Ном = Сред(А,1,Найти(А,",")-1);
Сообщить(Ном);
А = СтрЗаменить(А,Ном,Символы.НПП);
КонецЦикла;
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший