书上有一个插入排序的例子，我理解不了，我把发上来，帮忙我理解一下插入排序。
program e10_4;
var i,j:integer;
a:array[0..6] of integer;
begin
for i:=1 to 6 do
read(a[i]);
for i:=2 to 6 do
begin
j:=i;
a[0]:=a[i];
while a[j-1]>a[0] do
begin
a[j]:=a[j-1];
j:=j-1;
end;
a[j]:=a[0];
end;
for i:=1 to 6 do
write(a[i],' ');
end.
var
i, j, k, l: Integer; // 循环变量
a: array[0..9] of Integer; // 数组
tmp: Integer; // 临时变量
begin
for i := 0 to 9 do
a[i]:= 0; // 清空数组
for i := 0 to 9 do // 循环读入数值
begin
Readln(tmp); // 读数值
l:= i;
for j := 0 to i - 1 do // 开始循环比较
if tmp > a[j] then // 找到比读入大的数
begin
l:= j; // 记录下标
Break; // 退出比较
end;
for k := i - 1 downto l do
a[k + 1]:= a[k]; // 所有元素后移一位
a[l]:= tmp; // 当前数值插入数组
end;
writeln;
for i := 0 to 9 do
Writeln(a[i]);
readln;
end.
就是枚举每个数，向前寻找要插入的位置插入。
例如 7 3 2 5 4 6
第一次 3 7 2 5 4 6 第二次 2 3 7 5 4 6 第三次 2 3 5 7 4 6 第四次 2 3 4 5 7 6 第五次 2 3 4 5 6 7
不过我比较喜欢用冒泡，代码比较短又好理解。
for i:=1 to n do
for j:=i+1 to n do
if a[i]>a[j] then
begin t:=a[i];a[i]:=a[j];a[j]:=t;end;