Дан массив действительных чисел размер которого 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.