Бинарная вставка - Pascal ABC

var
  a: array[1..100] of integer;
  i,j,n,sred,left,right,tmp: integer;
begin
  write('Введите размер массива n: ');
  readln(n);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    write(a[i]:4);
  end;
  writeln;
  
  for i:=2 to n do
  if a[i-1]>a[i] then
  begin
    tmp:=a[i];
    left:=1;
    right:=i-1;
    repeat
      sred:=(left+right) div 2;
      if a[sred]<tmp then
        left:=sred+1
      else right:=sred-1;
    until left>right;
    for j:=i-1 downto left do
      a[j+1]:=a[j];
    a[left]:=tmp;
  end;
  writeln('Упорядоченный массив:');
  for i:=1 to n do write(a[i]:4);
  readln;
end.