为什么我按照书上的写下来还是会错呢？
procedure TForm1.Button1Click(Sender: TObject);
var
n1,n2: Integer;
begin
n1:=strtoint(inputbox('请输入','请输入武力指数','100'));
n2:=strtoint(inputbox('游戏关卡','你要闯第几关（1-3）','100'));
case n2 of

1:if(n1>=250) then
showmessage('游戏即将开始')
else
showmessage('第一关不是这种脚脚在玩的'+chr(13)+'肉脚回去苦练吧，哈哈哈哈');

2: if(n1>=340)then
showmessage('勇者向第2关迈进吧')
else
showmessage('凭你还不够格！');

3:if(n1>=510)then
showmessage('你有必死的觉悟吗？'+chr(13)+'好吧，魔王在等你了')
else
showmessage('少年仔爱惜生命吧！');
else
showmessage('不敢闯关吗！');

end;

end.
-------------------------------------------------
[错误] Unit1.pas(35): ';' expected but '.' found
[错误] Unit1.pas(37): Declaration expected but end of file found
[致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[解决办法]
end.的前边 还少了一个 end;

procedure TForm1.Button1Click(Sender: TObject);
var
n1,n2: Integer;
begin
n1:=strtoint(inputbox('请输入','请输入武力指数','100'));
n2:=strtoint(inputbox('游戏关卡','你要闯第几关（1-3）','100'));
case n2 of

1:if(n1>=250) then
showmessage('游戏即将开始')
else
showmessage('第一关不是这种脚脚在玩的'+chr(13)+'肉脚回去苦练吧，哈哈哈哈');

2: if(n1>=340)then
showmessage('勇者向第2关迈进吧')
else
showmessage('凭你还不够格！');

3:if(n1>=510)then
showmessage('你有必死的觉悟吗？'+chr(13)+'好吧，魔王在等你了')
else
showmessage('少年仔爱惜生命吧！');
else
showmessage('不敢闯关吗！');

end;
end;

end.