дано трехзначное число. опредилить сумму его разрядов

Var N, S : Word;
begin
Write('Введите 3-хзначное число: '); ReadLn(N);
S := 0; while N gt; 0 do begin S := S + N mod 10; N := N div 10; end;
Write('Сумма цифр = ', S); if (S gt; 9) and (S lt; 100) then WriteLn(' - двузначное число') else WriteLn(' - не двузначное число');
end.