Question

delphi 调试问题。关于if then语句的练习。

我在网上的课件里照抄的，但是出现了问题，我感觉逻辑上应该没问题，语法格式上我不太懂。
procedure TForm1.Button1Click(Sender: TObject);
var
year:Integer;
flag:Boolean;
begin
year:=StrtoInt(Edit1.text); //将字符串转变为整型
if year mod 4=0 then
begin
if year mod 100=0 then
if year mod 400=0 then
flag:=true
else
flag:=false;
end
else
flag:=true;
end
else
flag:=false;

if
flag then

Label2.Caption:='该年份是闰年'
else
Label2.Caption:='该年份不是闰年';

end;

Answer 1

1.缺少必要符号“;”。
2.begin少了一个

追问

那具体改在哪里呢。。