（插入排序）下面的程序的功能是输入n及n个整数，用插入排序的方法，将n个整数按从小到大的顺序输出，要求每行输出10个整数（最后一行可以不足10个）。
请将程序补充完整。

Program xx401;
var
  a:array[1..1000] of integer;
  n,i,x,k:integer;
begin
  readln(n);
  read( a[1] );
  for i:=2 to n do begin
    k:=i;
    read(x);
    while (k>1) and ( a[k-1]>x  ) do begin
      a[k]:=  a[k-1] ;
      dec(k);
    end;
    a[k]:=x;
  end;
  for i:=1 to n do begin
    write(a[i]:4);
    if  i mod 10=0   then writeln
  end;
  writeln
end.