Определить есть ли в данном числе четные цифры и на какой позиции они стоят. паскаль. с использованием 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.