Дан массив из N частей определить представляют ли элементы массива строгое

обозначим счетчики переменными kp(+) и km(-), так же возьмем переменную j:integer для осуществления цикла, так же необходим сам массив пусть будет a:array[1..20] of integer, содержит 20 частей целого типа, приступим к комплекту программки.  

var  

j,km,kp:integer;  

a:array[1..20] of integer;  

begin  

km:=0;kp:=0; обнулим счетчики  

randomize; запустим службу генерирования случайных чисел  

for j:=1 to 20 do  

begin  

a[j]:=random(100)-50; заполним массив случайными числами  

writeln(' a[',j,']= ',a[j]); напечатаем его  

end;  

дальше перейдем к поиску элементов  

for j := 1 to 20 do  

begin  

if a[j]lt;0 then km:=km+1;  

if a[j]gt;0 then kp:=kp+1;  

end;  

write('pologitel''nix: ',kp,'otricatel''nix: ',km);  

readln;  

end.