Tìm lỗi sai trong chương trình pascal sau đây và sửa lại cho đúng

tìm lỗi sai trong chương trình pascal sau đây và sủa sủa lại cho đúng:
         Chương trình lỗi                                                             sưa lại chương trình
program Tinhx ;
Var x : integer
    Begin 
         X=3;
    If(45 mod 3)=0 then x:=x+2
    If x > 10 then x:= x + 10
     End