1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var
  bis,i,j,k : Longint;
  h         : Word;
begin
  a[0]:= StrToInt(Edit1.Text);
  a[1]:= StrToINt(Edit2.Text);
  a[2]:= StrToInt(Edit3.Text);
  bis := High(a);
  k  := bis shr 1;
  while k > 0 do
    Begin
      for i:= 0 to bis -k do
       Begin
         j:= i;
         while (j>=0) and (a[j]> a[j+k]) do
         begin
           h := a[j]; a[j]:=a[j+k];a[j+k]:=h;
           if j>k then dec(j,k) else j :=0;
         end
       end;
       k:=k shr 1;
      end;
  Listbox1.Items.add(FloatToStr(a[0]));					

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:

procedure TForm1.Button1Click(Sender: TObject);
var
  bis,i,j,k : Longint;
  h         : Word;
begin
  a[1]:= StrToInt(Edit1.Text);
  a[2]:= StrToINt(Edit2.Text);
  a[3]:= StrToInt(Edit3.Text);
  bis := High(a);
  k  := bis shr 1;
  while k > 0 do
    Begin
      for i:= 0 to bis -k do
       Begin
         j:= i;
         while (j>=0) and (a[j]> a[j+k]) do
         begin
           h := a[j]; a[j]:=a[j+k];a[j+k]:=h;
           if j>k then dec(j,k) else j :=0;
         end
       end;
       k:=k shr 1;

    end;
   for i:=Low(a) to High(a) do
      Listbox1.Items.add(FloatToStr(i));
    end;

end.