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

Program gt;
var n,i,a,b:integer;
begin
read(n);
a:=n div 10;
b:=n mod 10;
for i:=0 to 9 dowriteln(a,i);
if(a<>b)then begin
for i:=0 to 9 do
writeln(b,i);
end;
end.

uses crt; // подключение модуля CRT, чтобы результат был в новом окне
var i,a,b: integer; // описание переменных
begin
     readln(i); // ввод двузначного числа
     a:=i div 10; // первая цифра числа
     b:=i mod 10; // вторая цифра числа
     write(a,a,' ',a,b,' ',b,a,' ',b,b); // вывод искомых чисел на экран
end.