Дан одномерный массив из 10 элементов .найти количество элементов больших 0 или меньших 0

Program n1;
const n=10;
var a: array [1..n] of integer;
i,kb,km: integer;
begin
kb:=0;
km:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
begin
if(a[i]>0) then kb:=kb+1;
if(a[i]<0) then km:=km+1;
end;
writeln('количество положительных: ',kb);
writeln('количество отрицательных: ',km);
end.

PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018Внимание! Если программа не работает, обновите версию!

function СуммаКвадратовЦифр(Число: integer): integer;

begin

 Result := 0;

 while Число > 0 do

 begin

   Result += Sqr(Число mod 10);

   Число := Число div 10

 end

end;

function ЧислоПервоклассное(Число: integer): boolean;

begin

 Число := Abs(Число); // защита от злобных буратинок

 var L:=new SortedSet<integer>;

 L.Add(Число);

 repeat

   case Число of

     0, 2, 3:

       begin

         Result := False;

         Exit

       end;

     1:

       begin

         Result := True;

         Exit

       end;

     else

     begin

       Число := СуммаКвадратовЦифр(Число);

       if L.Contains(Число) then

       begin

         Result:=False;

         Exit

       end

       else L.Add(Число)

     end

   end

 until False // бесконечный цикл

end;

begin

 var (НижняяГраница, ВерхняяГраница) := ReadInteger2;

 var Количество := 0;

 for var ОчередноеЧисло := НижняяГраница to ВерхняяГраница do

   if ЧислоПервоклассное(ОчередноеЧисло) then Inc(Количество);

 Количество.Println

end.

1 10020

1.
var
x:integer;
y:real;
begin
write('Введите значение аргумента "X" : ');
readln(x);
y:=3*cos((5*x));
writeln('Значение функции "Y" = ',y);
readln;
end.

2.
var
x,b:integer;
begin
write('Введите количество молока, полученного за день, л : ');
readln(x);
write('Введите количество дней : ');
readln(b);
writeln('Количество молока, полученного за заданный промежуток времени = ',x*b);
readln;
end.  

3.
var
a,b,c:integer;
begin
write('Введите двузначное число: ');
readln(a);
b:=a div 10;
c:=a mod 10;
writeln(b,#10,c);
end.

4.
var
b:integer;
a:longint;
begin
write('Введите целое число: ');
readln(a);
  b:=a div 100 mod 100;
writeln(b);
readln;
end.

5. 
var
a,b:integer;
begin
write('Введите числа : ');
readln(a,b);
if a and b mod 2=0 then
 writeln(a+b);
if a and b mod 2<>0 then
 writeln(a*b);
readln;
end.
{Про последнее "Иначе", увеличьте все числа в пять раз и выведите результаты" не очень понялЕсли оба чётные - сумма, если оба - нечётные - то произведение. А если иначе, то число должно быть равно нулю. Смысл увеличивать его в пять раз?)}