Как в паскале поменять местами максимальный элемент с восьмым в массиве?

[gylayko]

Госсподи спаси и сохрани меня грешного))))))

[gylayko]

извини брат! после линейной алгебры и 5 пар мозг ели варит, а паскаль нужно сотворить.

[gylayko]

А нужно его еще отсортировать, так вот, я начал сортировать методом шелля,вот что получилось:

uses crt;
const n=16;
var B:array[1..16] of integer; c,l,d,x,y,j,i,max,min:integer; p:boolean;
begin
clrscr;
randomize;
for i:=1 to n do B[i]:=random(100);
write('*начальный массив');
for i:=1 to n do write(' ',B[i]);
min:=1;
for i:=1 to n do
   begin
     if B[i]<B[min] then min:=i;
   end;
 x:=B[min];
 B[min]:=B[8];
 B[8]:=x;
max:=16;
for i:=1 to n do
   begin
     if B[i]>B[max] then max:=i;
   end;
 y:=B[max];
 B[max]:=B[9];
 B[9]:=y;
writeln;
write('переделанный массив');
for i:=1 to 16 do
  write(' ',B[i]);
  writeln;
write('отсортированый массив');
d:=8;
while d>0 do
  begin
    for i:=1 to n-d do
      begin
	l:=i;
	repeat
	 p:=false;
	 if B[l]<B[l+d] then
	   begin
	     c:=B[l];
	     B[l]:=B[l+d];
	     B[l+d]:=c;
	     l:=l-d;
	     p:=true;
	   end;
	 until l<=1;
     end;
     d:=d div 2;
  end;
for i:=1 to 16 do
write(' ',B[i]);
readln;
end.

что я не так делаю? потому что в результате вообще ничего не выводит! поможете?