Сортировка массива

[ManU]

Вот код процедуры сортировки включением.
Скажите как правильно расставить счетчики присваиваний и сравнений, а то судя по тому как их расставил я метод просто реактивный в сравнении с остальными прямыми методами

procedure insertion(Var a:mass);
Var i,j,k,x,pr,sr: integer;
begin
pr:=0;    {присваивания}
sr:=0;    {сравнения}
for i:=2 to n do
begin
x:=a[i];
j:=1; inc(pr);
while (x>a[j]) do begin
Inc(j); inc(sr);  end;
for k:=i-1 downto j do
a[k+1]:= a[k];
a[j]:=x;
inc(pr);
end;
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Kol-vo prisvaivanii=',pr,#13#10,'Kol-vo sravnenii=',sr);
end;

[alexBlack]

По моему так:

procedure insertion(var a:mass);
var i,j,k,x,pr,sr: integer;
begin
   pr:=0;
   sr:=0;
   for i:=2 to n do begin
      x:=a[i]; inc(pr);
      j:=1;

      inc(sr);
      while (x>a[j]) do begin
         Inc(j); inc(sr);
      end;

      for k:=i-1 downto j do begin
         a[k+1]:= a[k]; inc(pr);
      end;

      { Наверно, все-таки не присваиваний, а обменов
        поэтому здесь не считаем, т.к. посчитано в начале
      } 
      a[j]:=x;
   end;

   for i:=1 to n do write(a[i],' ');
   writeln;
   writeln('Kol-vo prisvaivanii=',pr,#13#10,'Kol-vo sravnenii=',sr);
end;