Подсчитать количество присваиваний и количество сравнений при сортировке

const ARRAY_SIZE = 10;
type array_t = array[1..ARRAY_SIZE] of integer;
 
procedure print( const a: array_t );
var
  i: integer;
begin
  write('array(',ARRAY_SIZE,'): ');
  for i:=1 to ARRAY_SIZE do
    write( a[i] :5 );
  writeln;
end;
 
const DEV_MODE = true;
 
var
  a: array_t;
  i,j,tmp: integer;
  eCount: integer = 0;
  aCount: integer = 0;
begin
 
  for i:=1 to ARRAY_SIZE do
    a[i] := random(-100 , 100);
 
  print(a);
 
  for j:= 2 to ARRAY_SIZE  do begin  
    eCount := eCount + 1;
    aCount := aCount + 1;
    tmp := a[j];
    i := j - 1;
    aCount := aCount + 2;
    while (i > 0) and (a[i] > tmp) do begin
      if ( i>0 ) then eCount := eCount + 1 else eCount := eCount + 2;
      
      a[i+1] := a[i];
      if DEV_MODE  then print(a); 
      i := i - 1;
      aCount := aCount + 2;
    end;
    a[i+1] := tmp;
    aCount := aCount + 1;
    if DEV_MODE  then print(a); 
  end;
 
  writeln( 'Кол-о сравнений:    ',eCount );
  writeln( 'Кол-о присваиваний: ',aCount );
 
  print(a);
end.