Счетчик перестановок

[uzumaxy]

Доброго времени суток! Помогите пож. вставить счетчик в процедуры, которые реализуют сортировку массива методом Шелла и вставки(не получается у мя). Счетчик должен отображать количество шагов(перестановок) которые были выполнены во время сортировки. Код процедур привел ниже.
Заранее спасибо!

type
   DataItem = char;
   DataArray = array [1..80] of char;

procedure Shell(var item: DataArray; count:integer);
       const
         t = 5;
       var
         i, j, k, s, m: integer;
         h: array[1..t] of integer;
         x: DataItem;
       begin
         h[1]:=9; h[2]:=5; h[3]:=3; h[4]:=2; h[5]:=1;
         for m := 1 to t do
           begin

         k:=h[m];
         s:=-k;
         for i := k+1 to count do
         begin
           x := item[i];
           j := i-k;
           if s=0 then
           begin
             s := -k;
             s := s+1;
             item[s] := x;
           end;
           while (x<item[j]) and (j<count) do
             begin
               item[j+k] := item[j];
               j := j-k;
             end;
             item[j+k] := x;
           end;
         end;
     end; { end Shell sort }

procedure Inser(var item: DataArray; count:integer);
       var
         i, l, j: integer;
         x: DataItem;
       begin
         for i := 2 to count do
         begin
           x := item[i];
           j := i-1;
           while (x<item[j]) and (j>0) do
           begin
             item[j+1] := item[j];
             j := j-1;
           end;
           item[j+1] := x;

         end;
     end; { end Inser sort }

[uzumaxy]

Так и не получается у меня. Все время нулевое значение...