Сортировкой массиваДан массив x, состоящий из латинских букв. Исключить из него

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var x := SeqRandom(ReadInteger('n='), 0, 51)

     .Select(t -gt; t lt; 26 ? Chr(t + Ord('A')) : Chr(t - 26 + Ord('a')))

     .ToArray;

 x.Println;

 x := x.Where((v, i)-gt; i.IsEven).Order.ToArray;

 x.Println

end.

Пример

n= 50

rLGIlkFnyaqvPYweWjJMEtZHUTLPreSpqKAvvArnCAULROpFLo

ACEFGJLLPRSUUWZlpqqrrrvwy