[serj71298]

пока не получается, где-то намудрил.

Код:

Type
  TA=array of real;
  TA1=array of TA;

var
  Form1: TForm1;
   a: TA1;  n,m: Longint;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
 SetLength(a,n,m);
n:= StrToInt (trim(Edit1.Text));
m:= StrToInt (trim(Edit2.Text));
SetLength (a,n,m);
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;
end;

procedure Samena (a:TA1 );
var
i,j,n,m: Longint;
    s:real;

 begin

 n:=Length(a);
 m:=Length(a);
 s:=a[0,0];
  for i:=0 to n-1 do
 for j:=0 to m-1 do
 if s<0 then
 begin
 s:=abs(a[i,j]);

 end;

 end;

procedure TForm1.Button2Click(Sender: TObject);
var
 i,j:Longint;

begin
  for i:=0 to n-1 do
  for j:=0 to m-1 do
  a[i,j]:= StrToFloat (StringGrid1.Cells[i,j]);
  Samena (a);
  StringGrid1.Cells[i,j]:=FloatToStr(a[i,j]);
end;

end.