if、函数、递归 老是报错！！！

Delphi(Pascal) code

function func(x:integer):integer;begin     if(x=0) then          result 0     else          result x*func(x-1);end;

错在哪了呢？

[解决办法]
首先是语法错误 result 0 应为result:=0,依此类推。