Помогите, программа не работает…

Помогите, программа не работает, нужно разложить 4-хзначное число на цифрыvar a,a1,a2,a3,a4: integer; beginwrite ('vv ch'); read (a); a1: =a/1000; a2: =a/100 mod 10; a3: =a/10 mod 10; a4: =a mod 10; write (a1,a2,a3,a4); end. Где ошибка!?