Удалить из массива все числа, состоящие из одинаковых цифр и упорядочить элементы по убыванию их сумм

const n=20;
var
  a,b:array of integer;
  i,j,k:integer;
  s:string;
  ok:boolean;
function sm(a:integer):integer;
var
  l,i:integer;
  s:string;
begin
  l:=0;
  s:=inttostr(a);
  for i:=1 to length(s) do l:=l+ord(s[i])-48;
  result:=l;
end;  
function ordernum(a:integer):string;
var
  i,j:integer;
  s:string;
begin
  s:=inttostr(a);
  for i:=1 to length(s)-1 do
    for j:=i to length(s) do if s[i]<s[j] then swap(s[i],s[j]);
  result:=s;  
end;    
begin
  randomize;
  SetLength(a,n+1);
  writeln('Исходный массив');
  for i:=1 to n do begin
    a[i]:=random(1000);//    read(a[i]);
    write(a[i],' ');
    s:=ordernum(a[i]);
    ok:=true;
    if k>0 then  for j:=1 to k do if ordernum(b[j])=s then ok:=false;
    if ok then begin
      inc(k);
      SetLength(b,k+1);
      b[k]:=a[i];
    end;
  end;
  a:=b;
  writeln;
  writeln('Массив с удаленными элементами, состоящими из одинаковых цифр:');
  for i:=1 to k do write(a[i],' ');
  for i:=1 to k-1 do
    for j:=i to k do if sm(a[i])<sm(a[j]) then swap(a[i],a[j]);
    writeln;
  writeln('Массив, упорядоченный в порядке убывания суммы цифр:');    
  for i:=1 to k do write(a[i],' ');    
end.

{$reference System.Core.dll}
uses System.Linq;
 
function SumDigits(i : integer) : integer;
begin
  result := 0;
  while i > 0 do
  begin
    result := result + (i mod 10);
    i := i div 10;
  end;
end;
 
var
  arr, arr_after : array of integer;
  n : integer;
 
begin
  write('n = '); readln(n);
  arr := Enumerable.Range(1, n).Select((i : integer) -> Random(100)).ToArray();
    // ReadString().Split(' ').Select((s : string) -> integer.Parse(s));
  
  writeln('Исходный массив:');
  foreach x : integer in arr do write(x:5);
  writeln;
  
  arr_after := arr.Where((i : integer) -> (i < 10) or (IntToStr(i).ToCharArray().Distinct().Count() > 1)).ToArray();
  writeln('Массив без элементов, состоящих из одинаковых цифр:');
  foreach x : integer in arr_after do write(x:5);
  writeln;
  
  arr_after := arr_after.OrderByDescending((i : integer) -> SumDigits(i)).ToArray();
  writeln('Массив после сортировки:');
  foreach x : integer in arr_after do write(x:5);
  writeln;
end.

const n=20;
var
  a,b:array of integer;
  i,j,k:integer;
  s:string;
  ok:boolean;
function sm(a:integer):integer;
var
  l,i:integer;
  s:string;
begin
  l:=0;
  s:=inttostr(a);
  for i:=1 to length(s) do l:=l+ord(s[i])-48;
  result:=l;
end;  
function ordernum(a:integer):string;
var
  i,j:integer;
  s:string;
begin
  s:=inttostr(a);
  for i:=1 to length(s)-1 do
    for j:=i to length(s) do if s[i]<s[j] then swap(s[i],s[j]);
  result:=s;  
end;    
begin
  randomize;
  SetLength(a,n+1);
  writeln('Исходный массив');
  for i:=1 to n do begin
    a[i]:=random(1000);//    read(a[i]);
    write(a[i],' ');
  end;
  for i:=1 to n do begin
    s:=ordernum(a[i]);
    ok:=true;
    if k>0 then  for j:=1 to n do if (ordernum(a[j])=s) and (i<>j) then ok:=false;
    if ok then begin
      inc(k);
      SetLength(b,k+1);
      b[k]:=a[i];
    end;
  end;
  a:=b;
  writeln;
  writeln('Массив с удаленными элементами, состоящими из одинаковых цифр:');
  for i:=1 to k do write(a[i],' ');
  for i:=1 to k-1 do
    for j:=i to k do if sm(a[i])<sm(a[j]) then swap(a[i],a[j]);
    writeln;
  writeln('Массив, упорядоченный в порядке убывания суммы цифр:');    
  for i:=1 to k do write(a[i],' ');    
end.