Problema na inserção direta no pior caso (decrescente) =/

daew galera
to com outro problema
eu fiz um codigo de inserção direta
mais de forma decrescente, e acho que esta errado
queria que vcs dessem uma olhada pra ve oq axam

              n:=10;

              cont:=0;

              for i := n downto 1 do

              begin

                 c[i]:=i;

                 k := 1;

                 j := i-1;

                 ch := c[i];

                 writeln('N->',c[i]);

                 while (j >= 1) and (k = 1) do

                 begin

                    cont := cont + 1; {contador}

                    if ch <  c[j] then

                    begin

                       c[j+1] := c[j];

                       j := j  - 1;

                    end

                    else

                       k := j + 1;

                    c[k] := ch

                 end;

              end;



              for i:=1 to 10 do

                 writeln('>-->',c[i]);



              writeln('Contou-> ',cont,' Vezes');

              readln;

o contador conta apenas 9 vezes, isso ta certo?

vlw
flw