Кто хорошо разбирается в программировании? очень нужно :) Помогите пожалуйста, напишите программы в Паскале для задач:

1. Заполнить массив А[15] числами 106, 112, 118, 124, 130,...

2.дан массив целых чисел, состоящий из 30 элементов. заполнить его с помощью датчика случайных чисел. Hайти:

a) сумму отрицательных элементов

б) количество тех элементов, значения которых положительны и не превосходят заданного числа А

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var a:=106.Step(6).Take(15).ToArray; a.Println
end.

Результат
106 112 118 124 130 136 142 148 154 160 166 172 178 184 190

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var b:=ArrRandom(30,-50,50); b.Println;
  var a:=ReadInteger(Введите число А:);
  Writeln(Сумма отрицательных: ,b.Where(x-gt;xlt;0).Sum);
  Writeln(Cумма положительных, не больших ,a,, равна ,
    b.Where(x-gt;(xgt;0) and (xlt;=a)).Sum)
end.

Пример
-21 12 8 50 -47 35 45 -2 -30 -33 3 12 41 -29 8 2 -24 -44 -50 -2 -13 -32 33 -29 35 -43 20 -44 42 -3
Введите число А: 36
Сумма отрицательных: -446
Cумма положительных, не больших 36, равна 168