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

PascalABC.NET Версия 3.0 Сборка 1150var  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.