Циклические процессы с управлением по функции

program Project1;
var
  a: integer; {Переменная для хранения значения суммы цифр введенного числа}
  n: integer; {Переменная для хранения значения введенного числа}
begin
  repeat
    a:= 0;
    writeln('Введите трехзначное число: ');
    readln(n);
    n:= abs(n); {Преобразование числа в положительное}
    while n > 0 do  {Цикл для разделения числа на разряды}
      begin
        a:= a + n mod 10; {Подсчет суммы цифр введенного числа}
        n:= n div 10;
      end;
    if a > 10 then
      writeln('Сумма цифр введенного числа: ',a,'. Это больше 10.')
    else
      if a < 10 then
        writeln('Сумма цифр введенного числа: ',a,'. Это меньше 10.')
      else
        writeln('Сумма цифр введенного числа: ',a,'. Это равно 10.')
  until a <= 10;     { Выход из цикла бесконечного ввода чисел, если число меньше или равно 10}
  writeln('Программа закончила работу. ');
  Readln;
end.