Найти все цифры в записи целого трехзначного числа

Program cifry; Var a,x1,x2,x3: integer; Begin Write ('введите трехзначное число'); Readln (a); X1: =a div 100; X2: =(a div 10) mod 10; X3: =a mod 10; Writeln ('цифра сотен числа ', а,' равна ',x1); Writeln ('цифра десятков числа ', а,' равна ',x2); Writeln ('цифра единиц числа ', а,' равна ',x3); Readln; End.