怎么办怎么办{{{(>_<)}}} 不知道错在哪里。
程序代码：
program smileq;
var
input:char;
noquit:boolean;
function tool(v:boolean):boolean;
var
sinput:char;
snoquit:boolean;
begin
snoquit:=true; {Startup}
while snoquit do {Continue TOOL}
begin
write('tool>'); {Input char}
readln(sinput); {Input}
case sinput of
'q':snoquit:=false; {Quit part}
'e':writeln('echo'); {Echo part}
{'t':tool(0); {Tool part}
else writeln('q = quit; e = echo; h = help'); {Help}
end;
end;
end; {End of TOOL}
begin
writeln('Hello, I am SmileQ. How can I help you?'); {Welcome sentence}
noquit:=true; {Startup}
while noquit do {Continue the program}
begin
write('smileq>'); {Input char}
readln(input); {Input}
case input of
'q':noquit:=false; {Quit part}
'e':writeln('echo'); {Echo part}
't':tool(0); {Tool part}
else writeln('q = quit; e = echo; h = help'); {Help}
end;
end;
write('Good day! Press enter to leave... '); {Leaving sentence}
readln;
end.
求大神帮我看看

2楼喂熊

人工顶

没有人知道错在哪里吗?

估计你是导入的文件，里面有格式符号，用二进制编辑器看看里面多了什么

重启fp。

保存后关掉重新打开

function tool(v:boolean):boolean;
var
sinput:char;
snoquit:boolean;
begin
snoquit:=true; {Startup}
while snoquit do {Continue TOOL}
begin
write('tool>'); {Input char}
readln(sinput); {Input}
case sinput of
'q':snoquit:=false; {Quit part}
'e':writeln('echo'); {Echo part}
{'t':tool(0); {Tool part}
else writeln('q = quit; e = echo; h = help'); {Help}
end;
end;
end; {End of TOOL}
这段函数你没有给函数返回值吧