Из цифр заданного натурального числа составить максимальное и минимальное числа с такой же разрядностью

Program massiv2;
Var I,N,K,J,Pr,i1,i2:Integer;
b,c,d,z1,z2,c1,b1,c2,b2,c3,e,f,g,b4,c4,c5,c6,p:Integer;
A:array[1..300] Of Integer;
A1:array[1..300] Of Integer;
Q:array[1..100] Of Integer;
Begin
c5:=0;
c6:=1;
p:=1;
Write ('Введите количество элементов;');ReadLn(N);{n:=4;}
   FOR I:=1 To N Do 
   Begin 
     Write ('Введите A[',I, '] '); Readln(A[I]);
     End;
    WriteLn;
 
while not (c5=c6) do
 
begin
for i2:=1 to 100 do
begin
Q[i2]:=c6;{последовательность из цифр составленных по возврастанию в цикле}
write (Q[i2],' ');     
For I:=1 To N Do
      Begin
       K:=I;
        For J:=I+1 To N Do If A[J]<=A[K] Then K:=J;
        Pr:=A[I]; A[I]:=A[K]; A[K]:=Pr;
       End;
       
       c2:=0;
       For I:=1 To N Do 
       begin
        z2:=1;
        for j:=1 to N-i do
        begin
         z1:=10*z2;
         z2:=z1;
        end;
        Begin
        B2:=A[I]*z2;
        C2:=C2+B2;  
        End;      
       end;
       {write(c2,' ');   {число расположенное по убыванию} 
    For I:=1 To N Do
      Begin
       K:=I;
        For J:=I+1 To N Do If A[J]>=A[K] Then K:=J;
        Pr:=A[I]; A[I]:=A[K]; A[K]:=Pr;
       End;
       
       c1:=0;
       For I:=1 To N Do 
       begin
        z2:=1;
        for j:=1 to N-i do
        begin
         z1:=10*z2;
         z2:=z1;
        end;
        Begin
        B1:=A[I]*z2;
        C1:=C1+B1;  
        End;      
       end; 
       {write(c1,' ');{число расположенное по возврастанию}
       {Расположение по возврастанию}
       
 
c3:=c1-c2;          
 {write(c3,' '); {разность максимального и минимального}  
 
 
For I:=1 to N do  
Begin
   z2:=1;
  for j:=1 to N-i do
     begin
     z1:=10*z2;
     z2:=z1;
     end;
  g:=c3 div z2;
  e:=c3 mod z2;
  f:=c3-e;
  c3:=e;
  A1[I]:=g; 
end;  
 
For I:=1 To N Do
      Begin
       K:=I;
        For J:=I+1 To N Do If A1[J]>=A1[K] Then K:=J;
        Pr:=A1[I]; A1[I]:=A1[K]; A1[K]:=Pr;
       { write(A1[I],'');{массив разности по возврастанию }
       End; 
       
       c4:=0;
For I:=1 To N Do 
       begin
        z2:=1;
        for j:=1 to N-i do
        begin
         z1:=10*z2;
         z2:=z1;
        end;
        Begin
        B4:=A1[I]*z2;
        C4:=C4+B4; 
        End;      
       end;
       
       {write(c4,''); {число разности расположенное по возврастанию}
 
c5:=c1;
c6:=c4;
 
 
 
for i := 1 to N do 
begin 
A[I]:=A1[I];
A1[I]:=0;
end;
end;
if  c5=c6  then write( c5,'- конечное число')
else
 
 
end;
end.