Информатика. паскаль. подсчитать количество цифр числа n введенного с клавиатуры.

Program P1;
uses crt; {Можно не писать, нужно для очистки экрана}
var n, i:integer;

begin
clrscr;
write('Введите число '); readln(n);
while n>0 do
  begin
    n:=n div 10;
    i:=i+1;
  end;
writeln('В введенной числе ', i, ' цифр');
end.

// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(Abs(ReadInteger).ToString.Length)
end.

Примеры
-203534243
9

121
3