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

сойдет?

// 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->x<k).Sum);  Writeln('Сумма элементов, больших ',k,': ',    a.Where(x->x>k).Sum)end.Примерk= 45n= 1553 45 26 -9 -34 -93 87 52 -72 16 15 -58 73 24 -22Сумма элементов, меньших 45: -207Сумма элементов, больших 45: 265