Выяснить, в каком из двух чисел больше цифр - Pascal

Формулировка задачи:

Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить функцию для расчета количества цифр натурального числа.)

Решение задачи: «Выяснить, в каком из двух чисел больше цифр»

Листинг программы

function Count(digit : integer): integer;
var temp : string;
begin
temp := str(digit);
Count := Length(temp);
end;
 
var 
int1, int2: integer;
begin
     write("Введите первое число: ");
     read(int1);
     writeln("Введите второе число: ");
     readln(int2);
     if Count(int1) > Count(int2) then
         writeln("Первое число больше")
     else
         if Count(int1) = Count(int2) then
            writeln("Поровну")
         else
            writeln("Второе число больше");
end.

Объяснение кода листинга программы

Объявлена функция Count для подсчета количества цифр в числе
В функции вводится строковое представление числа и измеряется его длина
В основной программе введены два числа с помощью функций read и readln
Первое число сравнивается с вторым числом с помощью функции Count
Если первое число имеет больше цифр, выводится сообщение Первое число больше
Если количество цифр в обоих числах равно, выводится сообщение Поровну
Если второе число имеет больше цифр, выводится сообщение Второе число больше