Выполнить сортировку по возростанию между первым и минимальным элементом массива.

function decompress(st:string):string;
var s:string;
i,j,k,t:integer;
begin
 s:='';
 for i:=1 to length(st) do if st[i]<>'{' then s:=s+st[i] else
 begin
  val(copy(st,pos('{',st),pos('}',st)-1),k,t);
  for j:=1 to k do s:=s+st[i-1];
 end;
 decompress:=s;
end;

uses crt;
const n=10;
var m:array[1..n]of integer;
i,j,k,min:integer;
 
begin
 clrscr;
 write('Массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 
 min:=1;
 for i:=1 to n do if m[i]<m[min] then min:=i;
 for i:=1 to min-1 do
 for j:=1 to min-2 do
 if m[j]>m[j+1] then
 begin
  k:=m[j];
  m[j]:=m[j+1];
  m[j+1]:=k;
 end;
 writeln('Отсортированный массив');
 for i:=1 to n do write(m[i],' ');
 readln;
end.

uses crt;
var a:array[1..100] of integer;
    i,j,n,min,ti,x:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
 for i:=1 to n do
  begin
   a[i]:=random(20)-10;
   Write(a[i],'  ');
  end;
Writeln;
min:=1;
 for i:=1 to n do
  if a[i]<min then
   begin
    min:=a[i];
    ti:=i;
   end;
 for i:=1 to n do
  for j:=i to ti-1 do
   if a[i]>a[j] then
    begin
     x:=a[i];
     a[i]:=a[j];
     a[j]:=x;
    end;
Writeln('Min ',min,' [',ti,']');
 for i:=1 to n do
  Write(a[i],'  ');
Readln;
end.

uses crt;
var
ch,zn,s,kol:integer;
sum:real;
begin clrscr;
write('s=');
read(s);
ch:=1;
zn:=1;
sum:=1;
kol:=0;
  while s>sum do
   begin
    ch:=ch+3;
    zn:=zn+1;
    sum:=sum+ch/zn;
    inc(kol);
   end;
writeln('summa=',sum:2:2,'>',s);
writeln('kol-vo=',kol+1);
readkey;
end.

uses crt;
const n=15;
var m:array[1..n]of integer;
i,k:integer;
max,sr:real;
 
begin
 clrscr;
 randomize;
 write('Массив: ');
 for i:=1 to n do
 begin
  m[i]:=-50+random(101);
  write(m[i],' ');
 end;
 
 max:=0;
 for i:=1 to n do
 begin
  if m[i]<0 then
  begin
   inc(K);
   sr:=sr+m[i];
  end
  else if k>0 then 
  begin
   sr:=sr/k;
   if sr>max then max:=sr;
  end;
 end;
 writeln('MAX=',max:0:4);
 readln;
end.