Записать программу выделения цифр из двузначного числа

Program n1;
var a,d1,d2: integer;
begin
readln(a);
d1:=a div 10;
d2:=a mod 10;
writeln('1 цифра: ',d1);
writeln('2 цифра: ',d2);
end.