Такой вопрос,как отыскать в строке последнее вхождение элемента.Есть ли для этого какие-нибудь процедуры,кроме POS(Subst,ST),который отыскивает только первое вхождение.

последнее вхождение символа ch в строку s

i := length(s);
find := 0;
while(i>=1) and (find=0) do
 if s[i]=ch then find := i
else dec(i);