Получить случайное трехзначное число и вывести через запятую все его отдельные цифры. сделать для программы паскаль! с функций div и mod

Var a,b,c,x:integer;
begin 
    x:=random (899) +100; 
    writeln('x= ', x); 
    a:= x div 100;  {первая цифра}
    b:=(x mod 100) div 10;  {вторая цифра}
    c:= x mod 10;  {третья цифра}
    writeln(a,',',b,',',c); 
end.