Сортировка массива...Что та не выходит у меня..

[Pavel Lapin]

Сформировать линейный массив В(15) случайным образом. Вставить на 7-е место число, равное квадрату первого элемента. Удалить минимальный элемент массива. Отсортировать полученный массив методом «Выбора».

[BlackFishSQL]

Должно работать.Если что сам подлатай!)

program xxx;
const n=15;
var B:array [1..n] of integer;
    i,max,min,k,j:integer;

begin
 //заполняем
 for i:=1 to n do
  begin
   B[i]:=random(101);
   write(B[i]:4);
  end;
 writeln;
 //7-е место число, равное квадрату первого элемента
 B[7]:=sqr(B[1]);
 //мин. элемент
 min:=B[1];
 for i:=1 to n do
  if B[i]<min then begin
                    min:=B[i]; k:=i;
                   end;
 // Удалить минимальный элемент массива
 for i:=k to n-1 do
  B[i]:=B[i+1];
 B[n]:=0;
 //сортировка выбором
 for i:=1 to n-1 do
  begin
   max:=B[i]; k:=i;
   for j:=i+1 to n do
    if B[j]>max then begin
                      max:=B[j]; k:=j;
                     end;
   B[k]:=B[i]; B[i]:=max;
  end;
 //конечный массив
 for i:=1 to n do
  write(B[i]:4);

end.