菜鸟求教

Question

这是我写的一个delphi冒泡排序的程序
编译通过了 但是在使用时却出现错误  
var
  Form1: TForm1;
h,m,i,j,k:Integer;
arr:Array of Integer;
str:string;
  const
N=5;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
setlength(arr,6);
Edit1.Text:='';
Edit2.Text:='';
for m:=1 to 5 do
begin
str:=inputbox('输入值','请输入5个数',IntToStr(m));
arr[m]:=StrToInt(str);Edit1.Text:=Edit1.Text+IntToStr(arr[m])+',';
end;
Edit1.Text:=Copy(Edit1.Text,1,9);for i:=1 to N-1 do
for j:=i+1 to N do
 if arr[i]> arr[j] then
   k:=arr[i];
   arr[i]:=arr[j];
    arr[j]:=k;for h:=1 to 5 do
Edit2.Text:=Edit2.Text+IntToStr(arr[h])+',';
    end;end.
似乎问题是出在冒泡排序的循环嵌套中 但不知是什么原因 求教了

Answer 1

 if arr[i]> arr[j] then
  k:=arr[i];
  arr[i]:=arr[j];
  arr[j]:=k;
这地方要 if arr[i]> arr[j] then
begin
  k:=arr[i];
  arr[i]:=arr[j];
  arr[j]:=k;
end;