各位大俠，幫忙看看哪錯了（pascal）（數學黑洞6174 已知：壹個任意的四位正整數。將數字重新組合成壹個最

如果用冒泡法排序，可以這樣：

for i:=1 to 3 do

for j:=i+1 to 4 do

begin

if a[i]<a[j] then

begin

k:=a[i];a[i]:=a[j];a[j]:=k;

end;

end;

另外用於while循環的變量cha應該是前次計算的結果，還要把按位拆開放進a數組裏。但程序裏並沒有修改a數組。

中間又讀數據進a數組，不知為什麽。最後的判斷又是做什麽？