определить число единиц во введенном числе. Паскаль АБС

var  s: string;  i, k: integer;begin  Write('Введите произвольное число: '); Readln(s);  k := 0;  for i := 1 to length(s) do    if s[i] = '1' then k := k + 1;  Writeln('Количество единиц в числе равно ', k);end.Тестовое решение:Введите произвольное число: -156153451.4234111322Количество единиц в числе равно 6