求助：Unexpected end of file

怎么办怎么办{{{(>_<)}}} 不知道错在哪里。
程序代码：
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.
求大神帮我看看