Запросить двузначное число и определить является ли сумма его цифр двузначным числом в паскале

Var
n:integer;
begin
Read(n);
n:= n div 10 + n mod 10;
if n > 9 then Writeln('Сумма цифр - двузначное число')
  else Writeln('Сумма цифр - не двузначное число');
end.