Задан случайно массив из 20 целых чисел в интервале от -100 до 100. Подсчитать количество положительных, отрицательных и нулевых элементов

begin for i:=1 to 20 then begin                              a[i]:=random(100)-100;                              if (a[i]<0) then inc(k);                              if (a[i]=0) then inc(b);                              if (a[i]>0) then inc(c);                              end; writeln("Кол-во положительных чисел: ", c); writeln("Количество отрицательных чисел:",k); writeln("Количество нулевых:", b);