Матрицы. Скажите что не так!!

[Ольчик]

Нужно найти количество отрицательных элементов ниже главной диагонали матрицы.
Скажите что не так в этой процедуре....

PHP код:

 procedure KOL(SG:TStringGrid; ED2:TEdit; var ED1:TEdit);
var
i,j,k,n: Integer;
r: MAT;
begin
  k:=0;
  for i:=1 to n do begin
    for j:=1 to n do
      r[i,j]:=StrToInt(SG.Cells[i-1,j-1]);
  end;
for i:=2 to n do begin
    for j:=1 to n do
      begin
        if r[i,j]<0 then
        k:=k+1;
end;
  ED1.Text:=IntToStr(k);
  end;
  end; 


[Cannibal]

procedure KOL(SG:TStringGrid; ED2:TEdit; var ED1:TEdit); 
var 
i,j,k,n: Integer; 
r: MAT; 
begin 
  k:=0; 
  for i:=1 to n do begin 
    for j:=1 to n do 
      r[i,j]:=StrToInt(SG.Cells[i-1,j-1]); 
  end; 
for i:=2 to n do begin 
    for j:=1 to n do 
      begin 
        if (i>=J)and (r[i,j]<0) then 
        k:=k+1; 
end; 
  ED1.Text:=IntToStr(k); 
  end; 
  end;

[MalexG]

Зачем проверка лишнего условия?

procedure KOL(SG:TStringGrid; ED2:TEdit; var ED1:TEdit);
var
  i,j,k,n: Integer;
  r: MAT;
begin
  k := 0;
  for i := 1 to n do 
    for j := 1 to n do
      r[i, j] := StrToInt(SG.Cells[i-1, j-1]);

  // Используя этот цикл, вы однозначно просмотрите
  // только элементы, расположенные ниже гл. диагонали
  for i := 2 to n do 
    for j := 1 to i-1 do
      if r[i, j] < 0 then
        inc(k);

  ED1.Text := IntToStr(k);
end;