Вводятся 2 целых числа , в каком числе больше цифр?

PascalABC.NET Версия 3.0 Сборка 1150 var  a, b: integer; begin   readln(a, b);   var len := Length(a.ToString) - Length(b.ToString);   if len > 0 then writeln('В первом больше на ', len) else if len < 0 then writeln('Во втором больше на ', abs(len)) else writeln('Одинаковое количество цифр'); end.