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

program dv_chislo;

var a, ed, des, a2: byte;

begin

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

readln(a);

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

ed := a mod 10;

des := a div 10; 

a2 := ed * 10 + des;

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