Определить является ли число двухзначным и найти сумму первой и второй цифоы

Var
n : integer;
begin
write (Введите число: );
readln (n);
n:=abs(n);
if n in [10..99] then write ((n mod 10) + (n div 10)) else
write (Число не двузначное!);
end.