сортировка двухпутевой вставкой Опции

[Гость]

Мальчики, пожалуйста, дайте код сортировки двухпутевой вставкой. Пожалуйста!!!!Оень нужно!!!!!!!!

[Гость]

Посмотрите, пожалуйста. Я что-то написала, но это не работает, а как по-нормальному сделать...мозгов не хватает

program sort1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

const
  n=10;
  s=2*n+1;
var
  a: array[1..n] of integer;
  rez:array[1..s]of integer;
  i,l,r,m,x: integer;
  ok:boolean;
begin{main}
  SetConsoleCp(1251);
  SetConsoleOutputCp(1251);
   randomize;
   for i:=1 to n do
     a[i]:=random(11)-5;
   for i:=1 to n do
     write(a[i]:4);
   writeln;
   l:=rez[1];
   r:=rez[2*n+1];
   ok:=false;
   rez[n+1]:=a[1];
       m:=rez[n+1];
   for i:=1 to n do
   begin
   a[i]:=x;
    while (l<=r) and (not ok) do
     begin

       if rez[m]=x then
                     begin
                      ok:=true;
                      rez[m]:=x;
                     end
         else
           if rez[m]<x then l:=rez[m+1]
             else r:=rez[m-1];
     end;
    end;
  for i:=1 to 2*n+1 do
    write(rez[i]);
  readln;
end.