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:

procedure TForm1.ShakerSort(Sender:TObject);
var h:array[1..100] of byte;
j,k,l,r:byte;
begin
...
l:=2;
r:=100;
k:=100;
repeat
for j:=r downto l do begin
if h[j-1]>h[j] then begin
tauschen(h[j-1],h[j]);
k:=j;
end;
end;
l:=k+1;
for j:=l to r do begin
if h[j-1]>h[j] then begin
tauschen(h[j-1],h[j]);
k:=j;
end;
 end;
 r:=k-1;
until l>r;
end;					

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

begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
c:=StrToInt(edit3.text);
d:=StrToInt(edit4.text);
e:=StrToInt(edit5.text);

repeat
for a:=hilfsvari downto e      do   begin
if h[a-1]>h[a] then begin
tauschen(h[a-1],h[a]);					

1:

zahlen : array[1..100] of integer;					

1:

Label1.Caption := IntToStr(zahlen[5]);					

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

procedure Tauschen(var Tausch1, Tausch2:Integer);
var merk:Integer;
begin
  merk:=Tausch1;
  Tausch1:=Tausch2;
  Tausch2:=merk;
end; // Tauschen

type
  MySortArray:array[1..5] of Integer;

procedure TForm1.Sortiere;
var i,j:Integer;
    sort:MySortArray;
begin
  FillChar(sort, SizeOf(MySortArr), 0);
  for i:=1 to 5 do sort[i]:=StrToInt(TEdit(FindComponent('Edit'+IntToStr(i))).Text);
  for i:=5 downto 2 do for j:=4 downto 1 do
    if (sort[i]>sort[j]) then Tauschen(sort[i], sort[j]);
end; // TForm1.Sortiere