[Liprikon]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

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: пользуемся тегами для оформления