[Kosten]

Всем привет!
Совсем лёгкий вопросик и не могу реализовать, запарился с остальными заданиями..
Помогите пожалуйста на каком-нибудь примерчике найти количество отрицательных элементов одномерного массива

Код:

var
a: array[1..5] of integer;
i:integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=50-random(100);
StringGrid1.Cells[i-1,0]:=IntToStr(a[i]);
end;
end;

В общем массив то я смог задать, а вот посчитать количество отрицательных элементов я не смог...хотя пытался...
обрыл пол инета, ни нашел, только на паскале...собственно от куда я и пытался взять пример...

Код:

for i:=1 to 5 do
begin
if a[i]<0 then
p:=p+1;
label1.caption:=inttostr(p);

вообщем хелп