Подскажите пожалуйста решение для задачи по программированию в Паскале :)
(11 класс, тема: "Массивы")

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

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

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

Спасибо за помощь.

Пожалуйста.

Программа на языке Паскаль.const N=30;var i, s0, k, a: integer;      b: array [1..N] of integer;begin      readln(a);      s0:=0;      k:=0;      randomize;      for i:=1 to N do      begin b[i]:=random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000}                if (b[i]<0) then s0:=s0+b[i];                if (b[i]>0) and (b[i]<=a) then inc(k);      end;      if (s0<>0) then writeln(s0, ' - сумма отрицательных чисел')      else writeln('отрицательных чисел нет');      if (k<>0) then writeln(k, ' - количество положительных чисел, не превосходящих числа А')      else writeln('положительных чисел не превосходящих числа А, нет');readln;end.