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:

var j,i,a,b,help:integer;
c,d,strhelp:string;
begin
{i:=1;
repeat
listbox2.Items.Add(sortarray[i]);
i:=i+2;
until i=sa1-1;
listbox2.Items.Add(sortarray[i]);  }
// SORTIREN
i:=1; 
repeat
a:=strtoint(sortarray[i]);
b:=strtoint(sortarray[i+2]);
c:=sortarray[i-1];
d:=sortarray[i+1];
if a<b then
begin
help:=b;
a:=b;
b:=help;
strhelp:=d;
c:=d;
d:=strhelp;
sortarray[i]:=inttostr(a);
sortarray[i+2]:=inttostr(b);
end;
i:=i+2;
until i=sa1-1;

i:=1;   //EINLESEN
repeat
listbox2.Items.Add(sortarray[i-1]);
listbox2.Items.Add(sortarray[i]);
i:=i+2;
until i=sa1-1;
listbox2.Items.Add(sortarray[i-1]);
listbox2.Items.Add(sortarray[i]);