Дано двузначное число. Определить: а) является ли сумма его цифр двузначным числом; б) больше ли числа а сумма его цифр ОЧЕНЬ СРОЧНО!!!

Var
a:integer;
begin
   readln(a);
      if (a mod 10+a div 10>10) and(a mod 10+ a div 10           writeln(двузначное)
      else writeln(не двузначное);
if a mod 10+a div 10>a then
    writeln(больше)
else writeln(не больше);
end.