[fojia]

у меня не правильно считает!помогите найти в чем ошибка!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TForm1.BitBtn1Click(Sender: TObject); begin  form1.Close; end;   procedure TForm1.RadioButton2Click(Sender: TObject); var  i, j : byte; c,p,s:integer;   begin     s:=0;  for i:= 0 to 6 do   for j:=0 to 4 do s:=0;     begin      p:=StrToInt(StringGrid1.Cells[i,j]);   if (p mod 2=0) then s:=s+p ;     edit3.Text:=FloatToStr(s);                    end;    end; procedure TForm1.RadioButton3Click(Sender: TObject);  var  i, j : byte; p,s:integer; begin   s:=0;     for i:= 0 to 6 do for j:=0 to 4 do    begin p:=StrToInt(StringGrid1.Cells[i,j]);  if p mod 2<>0 then    s:=s+p;        edit3.Text:=FloatToStr(s);      end;      end;        end.