[Liprikon]

Нужно сделать сортировку простыми вставками двумерного массива с выводом в стрингрид
Вот код

Код:

Const 
u=5;
  g=5;
var
  Form1: TForm1;
  w:array [1..u,1..g] of integer;
implementation

{$R *.dfm}

procedure TForm1.btn2Click(Sender: TObject);
 var
   r, t, k, y, q, p, s: Integer;

 begin
  Randomize;
  for r:=1 to g do
  for p:=1 to u do
    begin
     w[r,p]:=Random(15);
    end;
      with strngrd2 do
       begin
        ColCount:=r+1;
        RowCount:=p+1;
        for r:=1 to g do
        for p:=1 to u do
         begin
           Cells[r,p]:=FloatToStr(w[r,p]);
         end;
       end;
  for s:=1 to 7*7 do
  for r:=1 to g do
  for p:=1 to u do
      begin
       t:=w[r,g];
       k:=1;
       q:=1;
        while (t>=w[k,q]) and (k<r) and (q<p) do
         for y:=r-1 downto k do
         w[y+1]:=w[y];
         w[k,q]:=t
        end;

     with strngrd3 do
       begin
        ColCount:=r+1;
        RowCount:=p+1;
        for r:=1 to g do
        for p:=1 to u do
         begin
           Cells[r,p]:=FloatToStr(w[r,p]);
         end;
       end;
 end;
end.

lmikle: пользуемся тегами для оформления