^procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,x:integer;
begin
for j:=2 to max do
begin
x:=zahl[j];
k:=j-1;
while (x<zahl[k]) and (k>=1) do
begin
zahl[k+1]:=zahl[k];
k:=k-1;
end;
zahl[k+1]:=x;
end;
for i:=1 to max do memo2.lines.add(inttostr(zahl));
end;