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

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 SelectSort(var _a:array of integer);
var i,j,temp,pos,min:integer;
begin
  for i:=0 to 8 do
  begin
    min:=_a[i];
    pos:=i;
    for j:=i+1 to 9 do
    begin
      if _a[j]<min then
      begin
        min:=_a[j];
        pos:=j;
      end;
    end;
    temp:=_a[i];
    _a[i]:=_a[pos];
    _a[pos]:=temp;
    Print(_a);
  end;
end;



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