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

program pr1;
uses crt;
var
 a,b,c,m,p:integer;
begin
 clrscr;
 textcolor(99);
 textbackground(56);
 writeln ('дано двху значное число определить является ли  сумма его цифр двух 
 значным числом»');
 readln (a);
 c:=a div 10;
 m:=a mod 10;
 p:=c+m;
 writeln(p);
 if (p>9) then writeln ('да');
  else writeln('нет');
 readkey;
end.