[bullet92820]

Код:

var
  Form1: TForm1;
  Arr : array of array of integer;
 i, j, n, m, t: integer;
  

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin

 SetLength(Arr, n,m);//Установить размер массива
 //Сортировка строк
 for j:=0 to n-1 do
  for i:=0 to n-j-1 do
   if Arr[i, m] > Arr[i+1, m] then
   begin
    t := Arr[i, m];
    Arr[i, m] := Arr[i+1, m];
    Arr[i+1, m] := t;

    F1Book1.NumberRC [i+2,j+2]:=arr[i,j];

   end;
 //По аналогии делается сортировка столбцов
 for j:=0 to m-1 do
  for i:=0 to m-j-1 do
   if Arr[n, i] > Arr[n, i+1] then
   begin
    t := Arr[n, i];
    Arr[n, i] := Arr[n, i+1];
    Arr[n, i+1] := t;
  
   end;
  


end.

сделал как написано, в f1book ничего не выводит как мне сделать чтобы выводило именно мой массив?