Необходимо написать программку: дан массив. Нужно раздельно вычислить отдельно сумму чисел,

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

begin
  var k:=ReadInteger('k=');
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Writeln('Сумма элементов, наименьших ',k,': ',
    a.Where(x-gt;xlt;k).Sum);
  Writeln('Сумма частей, великих ',k,': ',
    a.Where(x-gt;xgt;k).Sum)
end.

Пример
k= 45
n= 15
53 45 26 -9 -34 -93 87 52 -72 16 15 -58 73 24 -22
Сумма частей, наименьших 45: -207
Сумма элементов, великих 45: 265