Дано тризначне число. Чи кратна сума його цифр 7? Програма

Var
  m, n, n10, n100: integer;

begin
  write('Введите трехзначное число: ');
  readln(m);
  if (m gt; 99) and (m lt; 1000) then
  begin
    n100 := m div 100;
    n10 := (m mod 100) div 10;
    n := m mod 10;
    if (n + n10 + n100) mod 7 = 0 then writeln('Сумма цифр кратна семи')
    else writeln('Сумма цифр не кратна 7')
  end
end.

Тестовое решение:

Введите трехзначное число: 473
Сумма цифр кратна 7