[nblF-nblF*]

все равно результат вообще не выводит... тект программы у меня верный верный или нет?

Код:

procedure TForm1.Button1Click(Sender: TObject);
const m=3;n=5;
type qwerty=array[1..m,1..n] of real;
var x:qwerty;
i,j:byte;
s,q,w:real;
begin
i:=1;
while i<=stringgrid1.ColCount do
begin
j:=1;
while j<=stringgrid1.RowCount do
begin
x[i,j]:=strtofloat(stringgrid1.Cells[i-1,j-1]);

   s:=0;
  q:=0;
  w:=0;
  for i:=1 to 3 do begin
    s:=s+x[i,1];
    q:=q+x[i,2];
    w:=w+x[i,3];
  end;
  label1.Caption:=floattostr(s)+#13+floattostr(q)+#13+floattostr(w);
 end;
end;end;end.