Напишите программу, которая вводит трёхзначное число и разбивает его на цифры. например, при вводе числа 123 программа должна вывести"1,2,3"

Var a:integer;
begin
writeln('vvedite chislo');
readln(a);
write(a div 100,', ', a div 10 mod 10,', ', a mod 10)
end.