Программа должна выводить 1,2,3 Если я ввиду 123У меня выходит 1

Программка должна выводить 1,2,3 Если я ввиду 123
У меня выходит 1 0 3 (без запятых почему то)
Что у меня ошибочно записано??? Помогите пожалуйста,очень нужно

program GO;
var a,b,c,d:integer;
begin
writeln('Введите трехзначное число');
readln(a);
b:= a div 100;
c:= c mod 10;
d:= a mod 10;
writeln(b,' ',c,' ',d);
end.