全国青少年信息学奥林匹克竞赛培训---插入排序

var
  a:array[0..9] of integer
  =(4,3,5,1,10,2,6,9,7,8);

procedure Print(_a:array of integer);
var i:integer;
begin
  for i:=0 to 9 do
  begin
    write(_a[i]:5);
  end;
  writeln;
end;

procedure InsertSort(var _a:array of integer);
var i,j,temp:integer;
begin
  for i:=1 to 9 do
  begin
    temp:=_a[i];
    j:=i-1;
    while _a[j]>temp do
    begin
      _a[j+1]:=_a[j];
      dec(j);
    end;
    _a[j+1]:=temp;
    Print(_a);
  end;

end;



begin
   InsertSort(a);
   Print(a);
   readln;
end.