注意没有额外行的实现这是我的代码：
function mycopy(s: string; start: byte; len: byte): string;
var
i: byte;
begin
s:='';
i:=1;
while (start<=length(s)) do begin
s:=s+s[start];
inc(start);
inc(i);
end;
mycopy:=s;
end;
启动示例：
文本应该显示在标记区域中，但正如我们所看到的，没有显示任何内容。
一下子就出现了几个错误：
s: string;为空字符串s:='';s:=s+s[start];i增加，但根本没有使用可以通过为结果创建一个具有不同名称（与函数参数不同）的变量来纠正该错误。您可能可以在变量中形成结果
mycopy，它最终应该结束。