Определить сумму абсолютных значений элементов массива

{дан массив b0,b1,b2..bn-1. определить сумму абсолютных значений
элементов массива лежащих между элементом с минимальным положительным
зачением и элементом с номером n/2}
const
  n=10;
var
  min,sum,k,i:integer;
  b:array [0..n-1] of integer;
begin
  randomize;
  for i:=0 to n-1 do
    begin
      b[i]:=-n div 2 + random(n);
      write(b[i]:4);
    end;
  writeln;
  for i:=0 to n-1 do
    if b[i]>0 then
      begin
        k:=i;
        break;
      end;
 
  min:=b[k];
  for i:=k to n-1 do
    if (b[i]<min) and (b[i]>0) then
      begin
        min:=b[i];
      end;
  writeln('Min: ',min);
  sum:=0;
  for i:=k to n div 2 - 1 do
    sum:=sum + abs(b[i]);
  writeln('Sum: ',sum);
  readln;
end.

const n=10; n2=n div 2;
var
  b: array [0..n-1] of Real;
  s: Real;
  i, k: Integer;
begin
  Randomize; {s:=0;}
  for i:=0 to n-1 do b[i]:=-50+100*Random;
  for i:=0 to n-1 do Write(' ',b[i]:0:1); WriteLn;
  k:=0; while (k<n) and (b[k]<=0) do Inc(k);
  for i:=k+1 to n-1 do if (b[i]>0) and (b[i]<b[k]) then k:=i;
  if k=n              then WriteLn('Положительных нет')
  else if Abs(k-n2)<2 then WriteLn('Подходящих нет')
  else begin
    if k<n2 
    then for i:=k+1 to n2-1 do s:=s+Abs(b[i])
    else for i:=n2+1 to k-1 do s:=s+Abs(b[i]);
    WriteLn('S = ',s:0:1);
  end;
end.