При заданных элементах Х1,Х2,...,Хn, найти по отдельности суммы С1,С2 и количества М1,М2 элементов, значение которых соответственно больше W и меньше W. составить программу

Const n=10;
var x:array[1..n] of integer;
c1,c2,m1,m2,w,i:integer;
begin
Randomize;
for i:=1 to n do begin
 x[i]:=random(21);
 write(x[i]:3);
 end;
writeln;
write(w = );
readln(w);
c1:=0; m1:=0;
c2:=0; m2:=0;
for i:=1 to n do
 begin
 if x[i]gt;w then begin c1:=c1+x[i]; m1:=m1+1; end;
 if x[i]lt;w then begin c2:=c2+x[i]; m2:=m2+1; end;
 end;
writeln(c1 = ,c1,  m1 = ,m1);
writeln(c2 = ,c2,  m2 = ,m2);
end.

Пример:
  3 19 17  9  1 13  1 10  6  4
w = 5
c1 = 74  m1 = 6
c2 = 9  m2 = 4

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

begin
  var x:=ArrRandom(ReadInteger(n=),-50,50); x.Println;
  var w:=ReadInteger(w=);
  var p:=x.Where(q-gt;qgt;w);
  var c1:=p.Sum; var m1:=p.Count;
  p:=x.Where(q-gt;qlt;w);
  var c2:=p.Sum; var m2:=p.Count;
  Writeln(c1=,c1,, m1=,m1);
  Writeln(c2=,c2,, m2=,m2)
end.

Пример
n= 20
39 -13 -12 41 14 -4 38 -33 28 -30 25 24 7 -20 47 42 12 6 -30 16
w= 7
c1=326, m1=11
c2=-136, m2=8