Кокова позиция буквы "О" в члове "Слон" (решить в Pascal).

вот
var 
s,x      : string; 
 i,d,krot : longint;
begin 
readln(s); 
x:='о'; 
krot:=0; 
d:=length(s); 
for i:=1 to d do 
   if pos(x,s[i])<>0
     then writeln(i);
end.