Сортировка массива простыми вставками на Delphi

[Алексей777911]

Дано n целых положительных двузначных чисел. Трактуя каждое число как пару цифр из интервала 0–9, отсортировать их (цифры) по возрастанию.

Дано:
54 12 37

Нужно трактовать эти числа как пара цифр, то есть у такой набор цифр получится:
5 4 1 2 3 7

И эти цифры отсортировать, то есть на выходе у будет:
1 2 3 4 5 7

Как это сделать?

[Hacker19_90]

Попробуй создать массив длиной 2N.
И исходный массив перевести в созданный следующим образом

i := 1
repeat i < 2N do
     NoviiMassiv[i] := StariiMassiv div 10;
     NoviiMassiv[i + 1] := StariiMassiv mod 10;
     i := i + 2;
until (i = (2N + 1));

Ну а потом сортируй любым методом

[vedro-compota]

type 
  TData = array[0..N] of integer; 

procedure SortInsertion(var a: TData); //  Внимание! Массив должен 
                                       //  начинаться с нуля!
var 
  i,j : integer;   
  tmp     : integer;
begin
  for i:=2 to N do begin
    tmp:=a[i];  j:=i-1;
    a[0]:=tmp;  // установка барьера
    while tmp<a[j] do begin
      a[j+1]:=a[j]; // сдвинуть элемент
      j:=j-1
    end;
    a[j+1]:=tmp // поставить элемент на свое место
  end;
end; // SortInsertion

[Алексей777911]

unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm3 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var i, j, max, buf, k: integer;
tmp:integer;
a:array [1..3] of integer;
b:array [1..6] of integer;

begin

if length(StringGrid1.cells[i-1,0])<>0
then a[i]:= StrToInt(StringGrid1.Cells[i-1,0]) else a[i]:=0; label1.caption:='';

for i := 1 to 6 do
b[i]:=a[i] div 10; //находим первую цифру
b[i+1]:=a[i] mod 10; //находим вторую цифру

end;

begin //сортировка
for i:=2 to 6 do begin
tmp:=b[i];
j:=i-1;
b[1]:=tmp; // установка барьера
while tmp<b[j] do begin
b[j+1]:=b[j]; // сдвинуть элемент
j:=j-1;
end;
b[j+1]:=tmp // поставить элемент на свое место
end;


for k:=1 to 6 do

Label1.caption:=label1.caption+' '+IntToStr(b[i]);

Label1.caption:=label1.caption+#13; //вывод отсортированного массива


end.






Где у меня ошибки?))