С клавиатуры вводится целое число не превышающее 2 миллиарда.заменить четные цифры на 0. Срочно нужна помощь.

Easyvari:integer;s:string;beginreadln(s);for i:=1 to length(s) do if (s[i]='2') or (s[i]='4') or  (s[i]='6') or (s[i]='8')  then s[i]:='0';end.