Массив.Исправить ошибку.

[Катакомба]

Надо,чтобы выводилась сумма элементов массива,расположенных до последнего минимального элемента.
вот программа:
begin
write('razmer massiva*, n= ');
readln(n);
writeln('vvedita massiv x*');
for i:=1 to n do begin
write('x[',i,']= ');
readln(x[i]);
end;
writeln('massiv x');
for i:=1 to n do Write(x[i]:4:1,' ');
writeln;
min:=x[1];
for i:=1 to n do if min>x[i] then min:=x[i];
writeln('minimalny el-t massiva: ',min:4:2);
l:=0;
for i:=1 to n do if x[i]<min then l:=i;
if l=min then writeln('summa el-tovraspolozennyx do poslednego min el-ta')
else begin
s:=0;
for i:=1 to l do s:=s+x[i];
writeln('summa el-tov raspolozennyx do poslednego min el-ta: ',s:4:2);
end;

но он почему-то пишет всегда сумму равную 0,в чем ошибка?

[Alex11223]

if x[i]<min

мб =, а не <?) min у вас — это значение минимального элемента.

И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении. Кнопка Правка снизу справа.

[Катакомба]

нет,если ставить равно,то сумма считается вместе с минимальным элементом

[Alex11223]

ну так в l i-1.

[Катакомба]

точно!
спасибо за помощь)