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

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