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

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016begin  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<0).Sum);  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.Printlnend.Тестовое решение:15 10 10 8 8 20 19 126-17 -11 -3 -15 -11 -12 -16 19 1 1 11 -15-1002 -2 1 0 -8 1 -1 0 -5 92 -2 1 -3 -8 1 -1 -3 -5 9