se da un numar natural format din 2 cifre. sa se afiseze cifrele in ordine crescataoare separate printr-un spatiu


vreau toata rezolvarea rapid

Program OrdCrecator2Cifre;

var a : array  [1..1000] of integer;

i, j, p, aux, n, c : integer;

begin

         writeln('Introduceti un numar format din 2 cifre:');

         readln(n);

         if n<=99 then

begin

         while n<>0 do

begin

         inc(i);

         a[i]:=n mod 10;

         n:=n div 10;

end;

for p:=1 to i-1 do

for j:=p+1 to i do

if a[p]>a[j] then

begin

         aux:=a[p];

         a[p]:=a[j];

         a[j]:=aux;

end;

end;

writeln('Cifrele numarului ordonate crescator:');

for c:=1 to i do

writeln(a[c],' ');

end.