一维静态数组问题，新手求指教。
implementation
var
num:Array[1..10]of Integer;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
m:Integer;
str:String;
begin
Edit1.Text:='';
Edit2.Text:='';
for m:=1 to 10 do
begin
str:=inputbox('请输入10个整数','输入第'+IntToStr(m)+'个整数','0');
num[m]:=StrToInt(str);
end;
for m:=1 to 10 do
Edit1.Text:=Edit1.Text+IntToStr(num[m])+',';
Edit1.Text:=Copy(Edit1.Text,1,Length(Edit1.Text)-1);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,k,n:Integer;
begin
for i:=1 to 9 do
begin
k:=10-i;
for j:=1 to k do
begin
if (num[j]>num[j+1]) then
begin
n:=num[j];
num[j]:=num[j+1];
num[j+1]:=n;
end;
end;
end;
for i:=1 to 10 do
Edit2.Text:=Edit2.Text+FloatToStr(num[i])+',';
Edit2.Text:=Copy(Edit2.Text,1,Length(Edit2.Text)-1);
end;
end.
在Button2按钮程序里的2个for循环嵌不是很理解，求高手指点（越详细越好）。
还有begin一般是用在什么情况下 ？ 为什么这个for i:=1 to 10 do 后面就没有begin ？
希望爱心人士帮帮忙，小弟感激不尽。
[解决办法]
如果类似if for的语句后只有一行可以省略begin end
在Button2按钮程序里的2个for循环.............这个就是简单的数组项替换好么？没有任何难度，看不懂就跟踪进去看看变量里的值就明白了
[解决办法]
