Подскажите пожалуйста решение для задачи по программированию в Паскале :)
(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]lt;0) then s0:=s0+b[i];
                if (b[i]gt;0) and (b[i]lt;=a) then inc(k);
      end;
      if (s0lt;gt;0) then writeln(s0, - сумма отрицательных чисел)
      else writeln(отрицательных чисел нет);
      if (klt;gt;0) then writeln(k, - количество положительных чисел, не превосходящих числа А)
      else writeln(положительных чисел не превосходящих числа А, нет);
readln;
end.