请大家看看我的代码有问题吗？

命:=1000000000
钱:=0
年龄:=20
死:=false;
工作量:=n   //n>=0 自已定了
while not 死 do
   年龄:=年龄+(1/365)
   if 年龄 < 30 then
   begin
     for 星期一 to 星期日 do
     begin
        命  :=命 -(1/365)*工作量
        钱  :=钱 +(1/365)*工作量
     end;
   end else begin
     for 星期一 to 星期日 do
     begin
        命  :=命 +(1/365)*工作量/2
        钱  :=钱 -(1/365)*工作量/2
     end;
   end;
   if 命<=0 then
      死:=true;
end;