Найти сумму элементов массива, расположенных до минимального элемента

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j,k,p,min,s,l:integer;
 begin
  Randomize;
  for i:=1 to n do
   begin
    a[i]:=random(10)-4;
    Write(a[i]:4);
   end;
  p:=1;
  for i:=1 to n do
   if a[i]>0 then
    p:=p*a[i];
  min:=a[1];
   for i:=1 to n do
    if a[i]<min then  begin
     min:=a[i]; l:=i; end;
    Writeln;
     s:=0;
    for i:=1 to l do
    s:=s+a[i];
    write ('Сумма до минимального элемента (включительно) ',s);

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j,k,min,s,p,x:integer;
begin
clrscr;
Randomize;
writeln('Исходный массив');
p:=1;
k:=0;
for i:=1 to n do
 begin
  a[i]:=random(10)-4;
  Write(a[i]:4);
  if a[i]>0 then
   begin
    k:=1;
    p:=p*a[i]
   end;
 end;
writeln;
if k=0 then write('Положительных элементов нет')
else writeln('Произведение положительных=',p);
min:=1;
for i:=2 to n do
if a[i]<a[min] then
min:=i;
writeln('Минимальный элемент a[',min,']=',a[min]);
if min=1 then s:=0
else
 begin
  s:=0;
  for i:=1 to min-1 do
  s:=s+a[i];
 end;
writeln ('Сумма до минимального элемента=',s); {зачем включительно?}
for i:=1 to n-1 do
for j:=i+1 to n do
if((i mod 2<>0)and(j mod 2<>0))
or((i mod 2=0)and(j mod 2=0)) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x
 end;
writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:4);
readln
end.