Даны 3х и 2х значное число сравнить сумму их цыфр

Uses Crt;

var
   a,b:integer;
   s1,s2:byte;

begin
   ClrScr;
   Write('Введите 3-х значное число: '); Read(a);
   Write('Введите 2-х значное число: '); Read(b);
   s1:=a div 100+(a div 10) mod 10+a mod 10;
   s2:=b div 10+b mod 10;
   if s1>s2 then Writeln('Сумма цифр 3-х значного числа больше')
   else
      if s2>s1 then Writeln('Сумма цифр 2-х значного числа больше')
      else Writeln('Суммы цифр обоих чисел одинаковы');
   ReadKey
end.

Пример
Введите 3-х значное число: 513
Введите 2-х значное число: 97
Сумма цифр 2-х значного числа больше