为什么我按照书上的写下来还是会错呢？

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.