Дано двузначное число. Из цифр этого числа вывести все двузначные числа, которые можно составить из данного числа

program dv_chislo;

var a, ed, des, a2: byte;

begin

writeln ('Введите двухзначное число');

readln (a);

if (a 99) then writeln ('Число не двухзначное!') else begin

ed : = a mod 10;

des : = a div 10;

a2 : = ed * 10 + des;

writeln ('Числа, которые можно составить из цифр ', ed, ' и ', des, ': ', ed, ' : ', a, ' ', a2);