[fojia]

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

Код:

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.