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

var a:array[1..200] of real;n,k1,k2,k3,i:integer;beginrandomize;writeln ('Введи размер массива');readln (n);for i:=1 to n dobegin 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.