Delphi: Матрица в Stringgrid

[Ol R]

Дана вещественная прямоугольная матрица A размерностью n×m. Необходимо каждый элемент соответствующей строки разделить на сумму элементов этой строки.

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
StringGrid1.RowCount := SpinEdit1.Value;
end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
StringGrid1.ColCount := SpinEdit2.Value;
end;

//Вот здесь ошибка
procedure TForm1.Button1Click(Sender: TObject);
var
 A : array[1..10,1..10] of real;
 i,j,n,m: byte;
 s:double;
begin
 n := StringGrid1.RowCount;
 m := StringGrid1.ColCount;
 For i:=1 to n do
Begin
 s:=0;
 For j:=1 to m do
 s:=s+A[i,j];
 For j:=1 to n do
Begin
 A[i,j]:=A[i,j]/s;
 A[i,j] := StrToFloat(StringGrid1.Cells[j,i]);
 end;
 end;
 end;

Выдаёт ошибку: is not a valid floating point value

[evg_m]

s not a valid floating point value

ну так матрицу надо сначала заполнить числами а уж потом можно будет вычислять.

[Ol R]

Я итак заполняла, когда она запустилась. Использовала запятую, и точку, и всяко разно

[evg_m]

 n := StringGrid1.RowCount;

в таблице нумерация строк(и столбцов) начинается с нуля (0) заканчивается(рабочая заполненная часть) n-1.

 For i:=1 to n do

либо исправьте здесь 0..n-1
и тогда надо будет еще править

 A : array[1..10,1..10] of real;

также на 0...
либо

A[i,j] := StrToFloat(StringGrid1.Cells[j-1,i-1]);