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

program dv_chislo;

var a, ed, des, a2: byte;

begin

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

readln(a);

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

ed := a mod 10;

des := a div 10; 

a2 := ed * 10 + des;

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