Вставить счётчик обменов при сортировке массива

uses  crt;
 
type
  
  massiv = array[1..1000] of integer;
 
var
  
  lenk: integer;
  Aarray: massiv;
  m, x, c, u: integer;
  sort: byte;
 
procedure InsertSort(n: integer; var A: massiv);{Процедура сортировки простым включением}
var
  i, j, Tmp: integer;
begin
  for i := 2 to n do
  begin{Сохраняем текущий элемент}
    Tmp := A[i];
    inc(U);
    {Сдвигаем элементы, большие, чем текущий} 
    j := i - 1;
    while (A[j] > Tmp) and (j > 1) do
    begin
      inc(C);                                                                    //{ГДЕ ТО ТУТ ДОЛЖЕН БЫТЬ ЕЩЕ СЧЁТЧИК ОБМЕНОВ (U), НО ОН НЕ РАБОТАЕТ} {СО СРАВНЕНИЯМИ (С) ВСЕ НОРМАЛЬНО}
      A[j + 1] := A[j]; 
      j := j - 1;
    end;
    {Вставляем текущий элемент}
    A[j + 1] := Tmp;
    
  end;
end;
 
 
procedure move(A: massiv; n: integer);
begin
  for var i := 1 to n do
  begin
    Aarray[i] := A[i];
  end;
end;
 
procedure SortToL(n: integer; A: massiv);
var
  k: integer;
begin
  for var i := 1 to n - 1 do
    for var j := 1 to n - i do
      if a[j] < a[j + 1] then 
      begin
        k := a[j];
        a[j] := a[j + 1];
        a[j + 1] := k;
        
      end;
  move(A, lenk);
end;
 
 
 
procedure SortToH(n: integer; A: massiv);
var
  k: integer;
begin
  for var i := 1 to n - 1 do
    for var j := 1 to n - i do
      if a[j] > a[j + 1] then 
      begin
        k := a[j];
        a[j] := a[j + 1];
        a[j + 1] := k;
      end;
  move(A, lenk);
end;
 
 
 
 
begin
  
  Writeln('Введите число строк');
  Readln(lenk);
  //lenk:=1000;
  Writeln('Упорядоченный- 0');
  Writeln('Обратно упорядоченный- 1');
  Writeln('Случайный- 2');
  Read(Sort);
  //sort:=2;
  Writeln('   случайный');
  for var i := 1 to lenk do
  
  begin
    
    Aarray[i] := Random(50); 
    Write(Aarray[i]:3);
  end;
  case Sort of
    0:
      begin
        SortToH(lenk, Aarray);
        Writeln();
        writeln(' по возрастанию пузырьком');
        for var i  := 2 to lenk do
          write(aarray[i]:3);
        
        InsertSort(lenk, Aarray);
        Writeln();
        Writeln('   по возрастанию простым включением');
        for var i  := 2 to lenk do
          Write(Aarray[i]:3);
        u := 0;
        c := lenk - 1;
      end;
    1: 
      begin
        SortToL(lenk, Aarray);
        Writeln();
        writeln(' по убыванию пузырьком');
        for var i  := 2 to lenk do
          write(aarray[i]:3);
        
        InsertSort(lenk, Aarray);
        Writeln();
        Writeln('  по возрастанию простыим включением'); 
        for var i  := 2 to lenk do
          Write(Aarray[i]:3);
        
      end;
    2:
      begin
        
        
        
        InsertSort(lenk, Aarray);
        Writeln();
        Writeln('  по возрастанию простым вкючением');
        for var i  := 2 to lenk do
          Write(Aarray[i]:3);
        
        
        
      end;
  end;
  
  Writeln();
  
  Writeln();   
  
  Writeln(' в сортировке по возрастанию обменов\сравнений   ', u, ' \ ', C);
  Writeln('затраченое время  ', Milliseconds / 1000:3:2);
  
  
end.