Наиболее простой вариант решения приведенной выше проблемы есть использование... именно функции inttostr();

k:=inttostr(i); //Здесь идет разбивка числа i на егосоставляющие. Сами же компоненты числа записываются в массив k[]

for j:=1 to n do //Перебираем все составляющие числа. n представляет собой разрядность числа... к примеру, однозначное.

begin

Writeln(k[j]);

end;

Что мы получаем в результате? Число, которое разбито на составляющие! Для прощей наглядности мы вывели их на экран с помощью именно перебора циклом.

Есть еще и другой вариант... к примеру, деление целого числа на степени числа 10... но данный вариант долгий и затратный по времени!