Если в этом алгоритме все работало как надо, то вот так:
Код:
procedure TForm1.FormClick(Sender: TObject);
const m=3; n=3;
type klop=array[1..m,1..n] of byte;
var x,y:klop;i,j,k:byte;
begin
i:=0;
repeat
j:=0;
j:=j+1;
repeat
i:=i+1;
k:=strtoint(labelededit1.Text);
x[i,j]:=strtoint(stringgrid1.Cells[i-1,j-1]);
if x[i,j]<0 then y[i,j]:=x[i,j]*k else
y[i,j]:=x[i,j];
label1.Caption:=label1.Caption+#9+floattostr(y[j,i]);
until j<=stringgrid1.RowCount;
label1.Caption:=label1.Caption+#13;
until i<=stringgrid1.ColCount;
end;
end.
только мне кажется, что последовательность счетчиков i и j нарушена