Дан массив действительных чисел размер которого 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]else inc(k3);
write (a[i]:4);
end;
writeln (Положительных=,k1);
writeln (отлицательных=,k2);
writeln (нулевых=,k3);
end.