Помогите найти ошибку, пожалуйста. При любых n ответ дает 0 и 0. Решать обязательно надо через процедуру/функцию.

Это программа на языке Паскаль, которая считывает последовательность чисел и находит число с максимальной суммой его цифр. Когда пользователь вводит 0, программа прекращает считывание чисел и выводит число с максимальной суммой его цифр и его суммой. Процедура "makeit" используется для вычисления суммы цифр заданного числа. Похоже, что в программе отсутствует оператор "end" для цикла "while", что может вызвать синтаксическую ошибку.