Программа должна выводить 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.

var

   a, b, c, d: integer;

begin

   writeln('Введите трехзначное число');

   readln(a);

   b := a div 100;

   c := a div 10 mod 10;

   d := a mod 10;

   writeln(b, ', ', c, ', ', d);

end.