Сортировка расческой

const fact=1.247;
procedure swap(var x,y:integer);
var t:integer;
begin
  t:=x;
  x:=y;
  y:=t;
end;
 
var a:array[1..100] of integer; stepint,n,i,j:integer;step:real;swapped:boolean;
begin
  randomize;
  writeln('введите кол-во элементов в массиве');
  readln(n);
  writeln();
  writeln('исходный массив: ');
  for i:=1 to n do begin 
    a[i]:=random(1,100);
    write(a[i],' , ');
  end;
  writeln();
  
  // COMB SORT:
  
  step:=n;
  step:=trunc(step/fact);
  stepint:=trunc(step);
  while step>1 do begin
    i:=1;
    while i+step<=n do begin
      if a[i]>a[i+stepint] then swap(a[i],a[i+stepint]);
      inc(i);
    end;
    step:=trunc(step/fact);
    stepint:=trunc(step);
  end;
  
  i:=1;
  swapped:=true;
  while swapped and (i<n) do begin
    swapped:=false;
    for j:=1 to n-1 do begin
      if a[j]>a[j+1] then swap(a[j],a[j+1]);
      swapped:=true;
    end;
    inc(i);
  end;
  
  writeln('отсортированный массив: ');
  for i:=1 to n do write(a[i], ' , ');
end.

const
  n = 5;
 
var
  a: array [0..n] of integer;
  i, jr: integer;
  j: real;
 
begin
  for i := 0 to n do a[i] := Random(12);
  j := n;
  jr := Round(j);
  while i < i + jr do
  begin
    i := 0;
    jr := Round(j);
    while i + j <= n do
    begin
      if a[i] > a[i + Round(j)] then
      begin
        a[i] := a[i] + a[i + jr];
        a[i + jr] := a[i] - a[i + jr];
        a[i] := a[i] - a[i + jr];
      end;
      Inc(i);
    end;
    j := j / 1.247;
  end;
  
  for i := 0 to n do
  begin
    for jr := 0 to i - 1 do
    begin
      if a[jr] > a[jr + 1] then
      begin
        a[jr] := a[jr] + a[jr + 1];
        a[jr + 1] := a[jr] - a[jr + 1];
        a[jr] := a[jr] - a[jr + 1];
      end;
    end;
  end;
  Writeln(a);
end.