Вопрос по программированию pascal поменять местами цифры трехзначного числа и вывести их на экран

Var a,b,c,d:integer;
begin
randomize;
a:=random(990)+10;
writeln(a);
b:=a div 100;
c:=a mod 10 ;
writeln('Первое цифра числа - ',b);
a:=a div 10;
d:=a mod 10;
writeln('Вторая цифра числа - ',d);
writeln('Третья цифра числа - ',c);
writeln(b,c,d);
end.