Определить среднее арифметическое положительных чисел, лежащих после минимального значения в массиве В[1..N]. Числа, находящиеся до минимального значения в массиве В, рассортировать по возрастанию — Pascal(Паскаль)

uses crt;
var b:array[1..100] of real;
    n,i,imn,j:integer;
    x,mn,sr:real;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  b[i]:=10*random;
  write(b[i]:4:1);
 end;
writeln;
writeln;
mn:=b[1];imn:=1;
for i:=1 to n do
if b[i]<mn then
 begin
  mn:=b[i];
  imn:=i;
 end;
writeln('Минимальное число b[',imn,']=',mn:0:1);
sr:=0;
for i:=imn+1 to n do
if b[i]>0 then sr:=sr+b[i];
sr:=sr/(n-imn);
writeln('Среднее значение после минимального=',sr:0:1);
for i:=1 to imn-2 do
for j:=i+1 to imn-1 do
if b[i]>b[j] then
 begin
  x:=b[i];
  b[i]:=b[j];
  b[j]:=x;
 end;
writeln;
writeln('Массив после сортировки элементов до минимального:');
for i:=1 to n do
write(b[i]:4:1);
readln
end.