delphi冒泡程序

var
i,j,tmp: integer;
NumArr: array[1..20] of integer;
begin
for i:= 1 to 20 do
NumArr[i] := i;
for i := 1 to 19 do
for j := i+1 to 20 do
begin
if NumArr[j] > NumArr[i] then
begin
tmp := NumArr[i];
NumArr[i] := NumArr[j];
NumArr[j] := tmp;
end;
end;
end;

var
a:array [1..5] of integer;
i,j:integer;
temp:integer;
s:string;
begin
a[1]:=4;
a[2]:=5;
a[3]:=2;
a[4]:=1;
a[5]:=3;
for i:=1 to 5 do
for j:=1 to 4 do
begin
if a[j]>a[j+1] then
begin
temp:=a[j];
a[j]:=a[j+1];
a[j+1]:=temp;
end;
end;
S:='';
for i:=1 to 5 do
S:=S+IntToStr(a[i]);
ShowMessageFmt('result is %s',[S]);
end;