Одна строка в другой

[Nikolay625]

Есть две строки str1 = "213" и str2 = "0634251", все элементы 1-й строки содержатся во 2-й строк, не важно в каком порядке. Помогите, может есть какая функция которая сравнит их и выдаст 0 или 1? Язык Си

[ZX Spectrum-128]

Function f(str1,str2:string):integer;
Var
 P:integer;
Begin
P:=0;
For i:=1 to length(str1) do
  P:=p+pos(str1[i],str2);
F:=p;
End;

[Nikolay625]

Прошу прощения, я не указал, что надо на языке Си

[ZX Spectrum-128]

В си есть аналог функции pos - нахождения позиции подстроки в строке? В паскале эта функция выдает 0, если подстрока не встретилась. Если есть, то напрямую можно переписать.