Натуличка

я могу так написать когда считаю пол и отриц элементы?
if a[i,j] > 0 then
k:=K+1;
if a[i,j] < 0 then
P:=P+1;