Помоги плз, Pascal. 1)Дан массив Z(8). Определить количество элементов, меньших, чем пятый элемент. 2)Дан массив D(12).Определить сумму отрицательных элементов массива. 3)Дан массив R(10). Все нулевые элементы заменить суммой всех элементов.

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var z:=ArrRandom(8,1,20); z.Println;
  Writeln(z.Where(x->x>z[4]).Count);
  var d:=ArrRandom(12,-20,20); d.Println;
  Writeln(d.Where(x->x  var r:=ArrRandom(10,-9,9); r.Println;
  var s:=r.Sum;
  for var i:=0 to 9 do if r[i]=0 then r[i]:=s;
  r.Println
end.

Тестовое решение:
15 10 10 8 8 20 19 12
6
-17 -11 -3 -15 -11 -12 -16 19 1 1 11 -15
-100
2 -2 1 0 -8 1 -1 0 -5 9
2 -2 1 -3 -8 1 -1 -3 -5 9