Помогите сделать Дз В Паскале

По этому примеру помогите сделать Дз в Паскале
program qq;
var a, b, c,d: integer;
begin
a:= random (899)+100;
writeln (a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 100 mod 10;
writeln ('сотни:',b);
writeln ('десятки:',c);
writeln ('еденицы:',d)
end.
Домашнее задание: Доработать решение так что программа
выводила случайное четырехзначное число и вывести в
столбик его отдельные цифры.
Пример:
Получено число: 1232
тысячи: 1
сотни: 2
десятки: 3
единицы: 2