Помогите отладить задание по Делфи 7!

[Xenam]

Парни помогите с задачей по Delphi7 :
Задание:Произведение обратных величин сумм Xk+Yk,k=1,2,3...,n.
Решение:

procedure TForm1.Button1Click(Sender: TObject);
var
k,n:integer;
x,u,T:array[1..100] of real;
S:real;
begin
n:=StrToInt(edit1.Text);
for k:=1 to n do
begin
x[k]:=StrToFloat(StringGrid1.Cells[k,1]);
u[k]:=StrToFloat(StringGrid2.Cells[k,2]);
end;
for k:=1 to n do
T[k]:=(x[n]+u[n])/1;
end;
S:=1;
for k:=1 to n do
S:=S*T[k];
end;
edit2.text:=FloatToStr(S);
end.

Но что то не правильно подскажите (она не работает)!

 

[Barmutik]

Ну я думаю всё неправильно работающее сосредоточилось в одной строчке:

T[k]:=(x[n]+u[n])/1;

Потому как кажтся вместо этого должно быть:

T[k]:=1 / (x[k]+u[k]);

Только конечно стоит проверять что бы сумма не была равна 0...