Помогите решить задачку. В массиве b1,b2 . . . b15 найти сумму элементов, стоящих правее минимального.
минимальное число нашел, а вот, как найти сумму чисел стоящих правее не догоняю. . .
Var a:array[1..15] of integer;
i,b:integer;
begin
Writeln('Vvedite 15 chisel');
for i:=1 to 15 do
Readln(a[i]);
b:=a[1];
for i:=2 to 15 do
begin
if a[i]<b
then b:=a[i];
end;
writeln(b);
readln;
end.