[BuN5]

Сортировка последовательности двухпутевыми вставками. Не подсчитывает количество сдвигов, оно всегда = 0. Что не так?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

program Project2;   {$APPTYPE CONSOLE}   uses   SysUtils;   const  maxn=100;   type  posl=array [1..maxn] of integer;  stroka=string[30];   var  a,b:posl;  n,k:integer;  x: array[1..2*maxn] of integer;   procedure vvodposl(var a:posl;const namefile:stroka); var  fin: textfile;  i:integer; begin  assignfile(fin,namefile);  reset(fin);  readln(fin,n);  for i:=1 to n do   read(fin,a[i]);  close(fin); end;   procedure sortirovka(var a,b:posl); var  t, i, j, left, right, k: integer;  x: array[1..2*maxn] of integer; begin  left := n;  right := n;  x[n] := a[1];  k:=0;  for i := 2 to n do  begin   t := a[i];   if t >= a[1] then   begin    Inc(right);    j := right;    while t < x[j - 1] do    begin     Inc(k);     x[j] := x[j - 1];     Dec(j);    end;    x[j] := t;   end   else   begin    Dec(left);    j := left;    while t > x[j + 1] do    begin     Inc(k);     x[j] := x[j + 1];     Inc(j);    end;    x[j] := t;   end;  end;  for j := 1 to n do  b[j] := x[j + left - 1]; end;   procedure vivodposl(namefile:stroka;const a:posl; flag:boolean); var  i:integer;  fout:text; begin  assign(fout,namefile);  if flag then   rewrite(fout)  else   append(fout);  write(fout,'posl a ');  for i:=1 to n do    write(fout,a[i]:5);   writeln(fout);  write(fout,'posl b ');  for i:=1 to n do    write(fout,b[i]:5);   writeln(fout);  write(fout,'k ',k);  close(fout); end;   begin  vvodposl(a,'f1.txt');  sortirovka(a,b);  vivodposl('f2.txt',a,true); end.

[@Rafa3L]

Код:

1 2 3 4 5 6 7

... procedure sortirovka(var a,b:posl); var  t, i, j, left, right {, k}: integer;  x: array[1..2*maxn] of integer; begin ...