Составьте программу которая содержит функцию нахождения количества разрядов заданного числа не превосходящего 1000000000

Function kr(n:longint):integer;
var
  s:string;
begin
  Str(Abs(n),s);
  kr:=Length(s)
end;

var
  k:longint;
begin
  Write('Введите целое число: '); Read(k);
  Writeln('В этом числе количество разрядов равно ',kr(k))
end.

Пример работы программы
Введите целое число: 1234567
В этом числе количество разрядов равно 7