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

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

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

Function SumCifr(A : Longint) : Integer;
Begin
  If A>0 then SumCifr:=(A mod 10) +SumCifr(A div 10) else SumCifr:=0;
End;

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

Написана функция SumCifr, которая принимает одно целое число A в качестве параметра и возвращает целое число.
В первой строке функции проверяется, больше ли число A нуля.
Если число A больше нуля, то функция возвращает сумму цифр числа A, используя формулу (A mod 10) + SumCifr(A div 10), где (A mod 10) — последняя цифра числа A, а (A div 10) — число, полученное путем деления A на 10.
Если число A меньше или равно нулю, то функция возвращает 0.
Функция заканчивается, и в основной программе можно использовать функцию SumCifr для определения числа с наибольшим количеством цифр.