[Grynyuk]

Код:

function summ(k:integer;st:TStringgrid):real;
var i,j:integer;
    sum:real;
begin
sum:=0;
  for i:=1 to k do  begin
    for j:=1 to k do     begin
      if (i mod 2=0) then

    sum:= sum + strtofloat(st.Cells[i,j]);

  result:=sum;
  end;
end;
  end;

Помогите найти ошибку