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

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

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