Помогите, программа не работает, нужно разложить 4-хзначное число на цифры

var a, a1, a2, a3, a4:integer;

begin

write ('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.

где ошибка?!

Я бы сделал так:

var a, a1, a2, a3, a4:integer;

begin

write ('Введите четырехзначное число: '); read (a);

a1: = a div 1000;

a2: = a div 100 mod 10;

a3: = a div 10 mod 10;

a4: = a mod 10;

writeln ('Первая цифра: ', a1);

writeln ('Вторая цифра: ', a2);

writeln ('Третья цифра: ', a3);

writeln ('Четвёртая цифра: ', a4);

end.

Этот вид более эстетичный; )

Если я все правильно понял, нужно "/" заменить на div, т. к. вы используете тип integer.