function Pos(Substr: string; S: string): Integer;
pos(a,b); 取出子串a,在父串b中第一次出现的位置;
例如:
pos(‘b’,‘abcd’);
返回结果是2;