Безотлагательно. Помогите, пожалуйста. Дам 25 баллов. Напишите программку, которая наполняет массив

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,0,20); a.Println;
  var k:=ReadInteger('С какого элемента сортировать?');
  Assert(k.Between(0,n-1),'Введено недопустимое значение');
  a:=(a?[:k-1]+a[k-1:].OrderByDescending(t-gt;t)).ToArray; a.Println
end.

Пример
n= 13
13 10 4 18 4 1 19 9 14 12 6 15 7
С какого элемента сортировать? 5
13 10 4 18 19 15 14 12 9 7 6 4 1