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

{$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.