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

[Гость]

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

[Гость]

Нашла код программы на С.

#include <stdlib.h> 
#include <alloc.h> 
#include <time.h> 
#include <stdio.h> 
#include <conio.h> 
int tinsert (int *a, int n) 
{ 
// возвращает 0, если нет памяти 
int *x,i,j, left=n-1, right=n-1,t; 
if((x=(int *) malloc((2*n-1)*sizeof(int)))==0) return 0; 
x[n-1]=a[0]; 
for(i=1; i<n; i++) 
{ 
t=a[i]; 
if(t>=a[0]) 
{ 
for(j=right; j>=0&&t<x[j]; j--) 
x[j+1]=x[j]; 
x[j+1]=t; 
right++; 
} 
else 
{ 
for(j=left; j<=2*n-1&&t>x[j]; j++) 
x[j-1]=x[j]; 
x[j-1]=t; 
left--; 
} 
} 
for(j=left; j<left+n; j++) 
a[j-left]=x[j]; 
free(x); 
return 1; 
} 
main() 
{ 
int a[10], i; 
clrscr (); 
printf ("Сортировка методом вставок:\ n "); 
randomize(); 
for(i=0; i<10; i++) a[i]=rand(); 
printf(" До сортировки :\n"); 
for(i=0; i<10; i++) printf(" %d ",a[i]); 
printf("\n После сортировки :\n"); 
if(tinsert(a,10)) 
for(i=0; i<10; i++) printf(" %d ",a[i]); 
else 
printf("\n ошибка памяти "); 
} 

с помошью наполовину разбирающегося человека перевела на Паскаль. Но не работает программка Помогите, пожалуйста!!!

program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils,
  windows;

const
   n=10;
type
  mas=array [1..n]of integer;
var
  a:mas;
  i:integer;

procedure insert (var a:mas);
var
   t,i,j,left,right:integer;
   x:array[1..2*n-1]of integer;
begin
  left:=n-1;
  right:=n-1;
  for i:=1 to 2*n-1 do
    x[i]:=0;
  x[n-1]:=a[1];
  for i:=1 to n do
    begin
      t:=a[i];
      if t>=a[1] then
         begin
           j:=right;
           while (j<=0) and (t<x[j]) do
             j:=j-1;
           x[j+1]:=x[j];
           x[j]:=t;
           right:=right+1;
         end
         else
           begin
             j:=left;
             while (j<=2*n-1) and (t>x[j]) do
                 j:=j+1;
               x[j-1]:=x[j];
               x[j]:=t;
               left:=left-1;
           end;
    end;
    j:=left;
    while j<left+n do
      begin
        a[j-left]:=x[j];
        j:=j+1;
      end;
end;

BEGIN
  SetConsoleCp(1251);
  SetConsoleOutputCp(1251);
   writeln('введите ', n ,' чисел');
   for i:=1 to n do
     readln(a[i]);
   writeln('отсортированные числа');
   insert(a);
   for i:=1 to n do
     writeln(a[i]);
   readln;
END.