Определить является ли сумма его цифр двузначным числом — Pascal(Паскаль)

program massiv_v_illuminatore;

uses crt;

var
  a, b, c, d, e: integer;

begin
  clrscr;
  Repeat
    writeln('Введите трёхзначное число');
    readln(a);
  until (a >= 100) and (a <= 999);
  b := a div 100;
  c := (a mod 100) div 10;
  d := a mod 10;
  e := b + c + d;
  If (e >= 10) and (e <= 99) then
  begin
    writeln(e, 'двухзначное число');
  end
  else
  begin
    writeln(e, 'не двухзначное');
  end;
  readln;

end.