Заполнение строки StringGrid согласно условию

[Kserken]

Помогите решить вопрос. Нужно сделать программу универсальной, т.е. значение строк PiA, PiB, PiC заполнялось таким образом: если в ячейке строки Партнер A есть число и оно встречается 1 раз, то соответствующая ячейка PiA будет равна вероятности 0,1 , если встречается 2 раза, то эти вероятности сложить, если до этого мы учитывали это число(слаживали верояности PiA), то ячека PiA соответствующая этому числу будет равна 0.
Код программы:

procedure TForm1.Button2Click(Sender: TObject);
var i,n:integer; k:real;a: array[1..10] of integer;
el1,el2,el3,el4,el5,el6,el7,el8,el9,el10:integer;
k1,k2,k3,k4,k5,k6,k7,k8,k9,k10:real;
begin
k1:=0.1;
k2:=0.1;
k3:=0;
k4:=0.1;
k5:=0.1;
k6:=0.1;
k7:=0;
k8:=0.1;
k9:=0.1;
k10:=0.1;


el1:=StrToInt(StringGrid1.Cells[0,0]);
for i:=1 to StringGrid1.ColCount-1 do
  begin
    if el1=StrToInt(StringGrid1.Cells[i,0]) then k1:=k1+0.1;
  end;
    StringGrid1.Cells[0,3]:=FloatToStr(k1);

el2:=StrToInt(StringGrid1.Cells[1,0]);
for i:=2 to StringGrid1.ColCount-1 do
  begin
    if el2=StrToInt(StringGrid1.Cells[i,0]) then k2:=k2+0.1;
  end;
    StringGrid1.Cells[1,3]:=FloatToStr(k2);

el3:=StrToInt(StringGrid1.Cells[2,0]);
for i:=2 to StringGrid1.ColCount-1 do
  begin
    if el3=StrToInt(StringGrid1.Cells[i,0]) then k3:=k3+0.1
  end;
    StringGrid1.Cells[2,3]:=FloatToStr(k3);

el4:=StrToInt(StringGrid1.Cells[3,0]);
for i:=4 to StringGrid1.ColCount-1 do
  begin
    if el4=StrToInt(StringGrid1.Cells[i,0]) then k4:=k4+0.1;
  end;
    StringGrid1.Cells[3,3]:=FloatToStr(k4);

el5:=StrToInt(StringGrid1.Cells[4,0]);
for i:=5 to StringGrid1.ColCount-1 do
  begin
    if el5=StrToInt(StringGrid1.Cells[i,0]) then k5:=k5+0.1;
  end;
    StringGrid1.Cells[4,3]:=FloatToStr(k5);

el6:=StrToInt(StringGrid1.Cells[5,0]);
for i:=6 to StringGrid1.ColCount-1 do
  begin
    if el6=StrToInt(StringGrid1.Cells[i,0]) then k6:=k6+0.1;
  end;
    StringGrid1.Cells[5,3]:=FloatToStr(k6);

el7:=StrToInt(StringGrid1.Cells[6,0]);
for i:=6 to StringGrid1.ColCount-1 do
  begin
    if el7=StrToInt(StringGrid1.Cells[i,0]) then k7:=k7+0.1;
   end;
    StringGrid1.Cells[6,3]:=FloatToStr(k7);

el8:=StrToInt(StringGrid1.Cells[7,0]);
for i:=8 to StringGrid1.ColCount-1 do
  begin
    if el8=StrToInt(StringGrid1.Cells[i,0]) then k8:=k8+0.1;
  end;
    StringGrid1.Cells[7,3]:=FloatToStr(k8);

el9:=StrToInt(StringGrid1.Cells[8,0]);
for i:=9 to StringGrid1.ColCount-1 do
  begin
    if el9=StrToInt(StringGrid1.Cells[i,0]) then k9:=k9+0.1;
  end;
    StringGrid1.Cells[8,3]:=FloatToStr(k9);

el10:=StrToInt(StringGrid1.Cells[9,0]);
for i:=10 to StringGrid1.ColCount-1 do
  begin
    if el10=StrToInt(StringGrid1.Cells[i,0]) then k10:=k10+0.1;
  end;
    StringGrid1.Cells[9,3]:=FloatToStr(k10);

Как сделать правильно не могу понять.

_____
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[mihali4]

Ну вот, закрыли... Почему ???
Придется прочесть правила раздела !