[bullet92820]

Код:

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

  

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin

 SetLength(arr,8,8); //Установить размер массива
 //Сортировка строк
 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;
    StringGrid1.ColCount := 8;
StringGrid1.RowCount := 8;

   Stringgrid1.Cells[i,j]:=Inttostr(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;

прога запускается но в стринггрид ничего не выводится...