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