Дан массив действительных чисел размер которого n. Посчитать сколько в нем отрицательных положительных и нулевых элементов

Var a:array[1 ... 200] of real;

n, k1, k2, k3, i:integer;

begin

randomize;

writeln ('Введи размер массива') ;

readln (n) ;

for i:=1 to n do

begin

a[i]:=21*random-10;

if a[i]>0 then inc (k1)

else if a[i]<0 then inc (k2)

else inc (k3) ;

write (a[i]:4) ;

end;

writeln ('Положительных=', k1) ;

writeln ('отлицательных=', k2) ;

writeln ('нулевых=', k3) ;

end.