Никак не могу дописать программу на Pascal ABC.

program PRACTISH;
uses crt;
var a:array[1..10] of integer;
i,n,s,r,l,k,x,m : integer;
begin
clrscr;
writeln ('создание массива');
for i:=1 to 10 do
begin
a[i]:=random(100);
write('  ', a[i]:4);
end;
writeln;
for i:=2 to 10 do
begin
r:=i;
l:=i;
while (l<r) do
 begin
k:=(l+r) div 2;
if a[k]>a[i] then l:=k+1
else r:=k;
 end;
k:=r;
x:=a[i];
for m:=i downto k+1 do
 begin
a[m]:=a[m-1];
a[k]:=x;
writeln (a[m]);
writeln (a[k]);
 end;
end;
writeln;
writeln('Результат   ');
for i:=1 to 10 do
begin
write('  ', a[i]:4);
end;
end.

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,l,r,m,x:integer;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
writeln;
{сортировка бинарными вставками}
for i:=2 to n do
  begin
   x:=a[i];{запомним элемент}
   l:=1;{левый край}
   r:=i-1;{правый}
   while l<=r do {пока левый не больше правого}
    begin
     m:=(l+r) div 2;{находим середину}
     if x<a[m] then r:=m-1{если элемент меньше среднего,
                           правый край левее середины}
     else l:=m+1{иначе левый правее середины}
    end;
   for j:=i-1 downto l do a[j+1]:=a[j];{сдвигаем массив вправо на 1}
   a[l]:=x{вставляем элемент на место}
  end; { Окончание алгоритма сортировки}
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i]:4);
end.