FP这个程序哪里错了?

program Lincoln;
const n=7;
function copy(s:string,a:integer;count:integer):string;
procedure insert(source:string;var s:string;a:integer);
begin
var s:string;i:integer;z:string;
readln(s);
for i=1 to n do
begin
x=8-i;
copy(s,x,1);
insert(copy,z,1)
end;
writeln(z);
end.

第3行的s:string后应该是；

第6行的s不用定义了（第四行已定义）

第5行的begin应该放到var i:integer;z:string;之后

第10行的=前要加：

x未定义(应在var那里定义）

x=8-i；应改成x:=8-i;

过程的end后面应该是;

没有主程序

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息