pascal只删除一个字符

如何在语句上实现 delete（母串，起始位置，结束位置）但是只删除一个呢？

delete（母串,起始位置，1)

注：第三想为长度，并非结束位置

s:='abcdefghijk'; 以下二种方法都能找出‘h'在s中的位置为8，而'x'在s中的位置为0（表示不存在）： 方法1： position:=pos('h',s); writeln(position); 方法2： for position:=1 to length(s) do if s[position]='h' then break; if s[position]<>'h' then position:=0; writeln(position);