Question

free pascal delete函数

var s:string;
m,n:integer;
begin
writeln('input a word:');
readln(s);
writeln('input m:');
readln(m);
n:=length(s)-m+1;
writeln(delete(s,m,n))
end.
这样写有什么问题

Answer 1

你的程序什么意思？干什么用的？delete函数是删除字符串的某一个字串，delete(s,m,n),s指的是字符串，m指的是从第几个字符开始删除，n指的是删除几个字符串，如果按照楼主的程序运行的话，假如我输入abcdefg，输入4，得出的就出错了，因为abcdefg从第四个字符开始删除，然后n的值是7-4+1=4，就是错误的，不用再添上1了，建议楼主要检验s的值和m的值，望采纳。

Answer 2

delete是个过程，不是函数，不能输出

writeln(delete(s,m,n);
应该改为：
delete(s,m,n);
writeln(s);