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

Var
a,b,sum : integer;
begin
readln(a);
b:=a div 10;
a:=a mod 10;
sum:=a+b;
writeln(sum);
end.

У меня тоже самое что и того чувока вот