Количество цифр в записи длинного целого числа — Паскаль(Pascal) — CF

Uses sysutils;

var s:string;
      i, k:integer;
begin 
  write('Введите длинное число = ');
  read(s);
  s := Trim(s); {обрежем пробелы в начале и конце}
  k:=Length(s);
  for i:=1 to Length(s) do
    if Not (s[i] in ['0'..'9']) then k:=-i;
 
  if k<0 then WriteLn('Это не запись целого числа (ошибочный символ в позиции ',-k,')')
  else WriteLn('Количество цифр = ',k);
 
end.