Определить есть ли в данном числе четные цифры и на какой позиции они стоят. Паскаль. С использованием while.

var s:string; i:integer;begin readln(s); i:=1; while(i<=length(s)) do begin if((StrToInt(s[i])mod 2)=0) then write(i,' '); end;end.