Кокова позиция буквы "о" в члове "слон" (решить в 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.