В массиве из 10 чисел с плавающей точкой найти кол-во положительных и кол-во отрицательных чисел (Паскаль)

Const n=10; 
var a:array[1..n] of real;
i,k1,k2:integer;
begin
Randomize;
writeln(Массив A:);
for i:=1 to n do
 begin
 a[i]:=10*random-5;

 write(a[i]:5:2,  );
 end;
writeln;
k1:=0; k2:=0
for i:=1 to n do
 if a[i]gt;0 then k1:=k1+1 else k2:=k2+1;
writeln(k1 = ,k1,  k2 = ,k2);
end.

Пример:
Массив A:
-4.38  -2.39  -0.58   1.36   2.48  -4.49  -3.41  -0.04   0.20   2.94  
k1 = 4  k2 = 6

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger(n=);
  var a:=ArrRandom(n,-9900,9900).Select(x-gt;x/100); a.Println;
  Writeln(Количество отрицательных элементов ,a.Where(x-gt;xlt;0).Count);
  Writeln(Количество положительных элементов ,a.Where(x-gt;xgt;0).Count)
end.

Пример
n= 9
-6.69 -71.7 -15.46 -23.53 51.7 2.86 -81.88 70.93 56.41
Количество отрицательных элементов 5
Количество положительных элементов 4