Дано целое число n. составить программу нахождения количества цифр числа (pascal abc)

Var
  a:longint;
  s:string;
begin
  writeln('Введите целое число');
  readln(a);
  Str(a,s);
  writeln('Количество цифр в числе равно ',length(s));
end.