program charufa (input,output);
var
   n,i,j:integer;
   k:real;
   a:array[1..100] of real;
begin
   writeln('input n:');
   read(n);
   writeln ('input a[n]:');
   for i:=1 to n do
   read(a[i]);
   for i:=2 to n do
   begin
   k:=a[i];
   j:=i-1;
   while a[j]>k do
   begin
   a[j+1]:=a[j];
   j:=j-1
   end;
   a[j+1]:=k
   end;
   for i:=1 to n do
   writeln(a[i]:8:3)
end.

把其中的while语句更换成for+if语句，请问怎么改？请大家帮帮忙啊。。。。