Сортировка методом бинарной вставки

Question

Язык Pascal 
Не работает процедура и не могу понять почему. После тестирования пишет, что не произведено ни одной перестановки.. . 
Код: 
procedure Sort2(var A:TArr; const N:TDiap);far; {binatnaja vstavka} 
var 
l,r:integer; 
midd:longint; 
m:TDiap; 
 begin 
for i:=2 to n do 
 begin 
x:=a;{zapomnili } 
l:=1;{left coner} 
r:=i-1;{right} 
 end; 
while l<=r do 
 begin midd:=(l+r) div 2; 
 if x

Ирина Липакова · Accepted Answer

вот сортировка на бэйсике 
----------
10 CLS 
20 RANDOMIZE TIMER 
30 DIM A(20),B(20) 
40 FOR I=1 TO 20 
50 B=RND*100 
60 C=B-(B-INT(B)) 
70 FOR J=1 TO I-1 
80 IF C=A(J) THEN GOTO 50 
90 NEXT J 
100 A(I)=C 
110 B(I)=C 
120 NEXT 
130 FOR I=2 TO 20 
140 K=A(I) 
150 J=I-1 
160 WHILE J>0 AND A(J)>K 
170 A(J+1)=A(J) 
180 J=J-1 
190 WEND 
200 A(J+1)=K 
210 NEXT 
220 FOR I=1 TO 20 
230 PRINT A(I),B(I) 
240 NEXT 
250 STOP