Roma, k:= Pos(s[i],cod); --
for j=1 to count(cod) do k:=Pos(s[i],cod[j]);