1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

VAR feld: ARRAY[1..10] OF INTEGER

PROCEDURE Tform1.btMinSortClick (...);
VAR i,j,kleinste : INTEGER
BEGIN
  FOR i := 1 to 9 DO BEGIN
  kleinste := j;
  
   FOR i:= j TO 9 DO IF feld[i+1] < feld [kleinste] THEN kleinste := i+1;
   vertausche (feld[j], feld[kleinste])
   END;
END.					

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:

var
  Form1: TForm1;
  feld: array[0..9] of integer=(6,7,3,2,8,9,0,5,1,4);

implementation

{$R *.DFM}

procedure InsertToArray(x1,x2:integer);
var
  tmp,i:Integer;
begin
  tmp:=feld[x1];
  for i:=x1 to x2-1 do
    feld[i]:=feld[i+1];
  feld[x2]:=tmp;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  finished:boolean;
  i,o:integer;
begin
  repeat
    finished:=true;
    for i:=low(feld) to high(feld) do
      for o:=i+1 to high(feld) do
        if feld[i]>feld[o] then
          begin
            InsertToArray(i,o);
            finished:=false;
            continue;
          end;
  until finished;
  for i:=low(feld) to high(feld) do
    caption:=caption+inttostr(feld[i])+' - ';
end;