Напишите функцию, которая определяет количество цифр переданного ей числа в паскале

function F1(a: integer): string; // описание функции.
begin
Result := inttostr(a); // преобразуем переданное в качестве параметра число в строку.
writeln('Количество цифр в числе ',a,' равно: ', length(Result)); // вывод на экран строки.
end;

var // начало основной программы.
b: integer; // объявление переменной целочисленного типа.
begin
writeln('Введите целое число:'); // вывод на экран строки.
readln(b); // считываем введенное с клавиатуры число.
F1(b); // вызываем функцию и передаем в качестве параметра введенное число.
end.