определить из каких цифр состоит число цикл repeat

Гениально! Низачто бы не понял что требуется сделать :)

var x: integer;begin  readln(x);  repeat    write(x mod 10);    write(',');    x := floor(x / 10);  until x < 1;end.