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

[wdswcy]

命:=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;

[idecl]

没错误

[wdswcy]

是因为作为一个程序员，他是：
年青时在拿命换钱，等老了他就不得不拿钱去换命了。

是这样吗，大家说说

[hellolongbin]

为什么小于30的时候是命减钱加 后面是命加钱减