OFF: Не могу понять, где ошибся.

Посмотрите, где ошибка в коде??

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