Написать алгоритм подсчета элементов меньше -3 в массиве в паскале

На паскале что то вроде такого:

uses GraphABC;

var
sum, sum_chetn, sum_nechetn : integer;
b:array [1..10] of integer;

begin
for var i := 0 to 10 do
begin
sum :=sum + b[i]; //сумма всех элементов
if (i mod 2 =0) then
begin
sum_chetn := sum_chetn + b[i]; //сумма всех четных элементов
end
else
begin
sum_nechetn := sum_nechetn + b[i]; //сумма всех нечетных элементов
end;
end;
println('Сумма всех элементов:');
println(sum);
println('Сумма всех четных элементов:');
println(sum_chetn);
println('Сумма всех нечетных элементов:');
println(sum_nechetn);
end.

print("Ноль в качестве знака операции"

     "\nзавершит работу программы")

while True:

   s = input("Знак (+,-,*,/): ")

   if s == '0':

       break

   if s in ('+', '-', '*', '/'):

       x = float(input("x="))

       y = float(input("y="))

       if s == '+':

           print("%.2f" % (x+y))

       elif s == '-':

           print("%.2f" % (x-y))

       elif s == '*':

           print("%.2f" % (x*y))

       elif s == '/':

           if y != 0:

               print("%.2f" % (x/y))

           else:

               print("Деление на ноль!")

   else:

       print("Неверный знак операции!")