Исключить из массива

[newerow1989]

const n=15;
var x:array[0..n] of integer;
    i,j,imin,imax:integer;
begin
   Randomize;
   For i:=0 to n do
   begin
      x[i]:=Random(100);
      Write(x[i]:2,' ');
   end;
   Writeln;
   Writeln;
   imin:=0;
   imax:=0;
   For i:=1 to n do
   begin
      If x[imin]>x[i] then
         imin:=i;
      If x[imax]<x[i] then
         imax:=i;
   end;
   If imax<imin then
   begin
      i:=imin;
      imin:=imax;
      imax:=i;
   end;
   For i:=imin+1 to imax-1 do
      For j:=imin+1 to n-1 do
         x[j]:=x[j+1];
   For i:=0 to n-imax+imin+1 do
      Write(x[i]:2,' ');
   Writeln;
   Readln;
end.