Составьте программку, определяющие самых горячих 7 дней и самых прохладных 7

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

begin
  var a:=ArrRandom(31,16,27); a.Println;
  var s:=a.Select((x,i)-gt;(x,i)).OrderBy(x-gt;x[0]).Select(x-gt;x[1]+1);
  Write('Семь самых холодных дней: '); s.Take(7).Println;
  Write('Семь самых горячих дней: '); s.TakeLast(7).Println
end.

Пример
17 17 25 27 22 26 22 23 26 26 25 16 21 25 22 17 20 19 16 19 21 22 19 16 21 27 22 24 22 24 22
Семь самых прохладных дней: 12 19 24 1 2 16 18
Семь самых горячих дней: 11 14 6 9 10 4 26