Найти наименьший из элементов, расположенных правее максимального элемента массива. Вместо наименьшего элемента выводит последний. Помогите исправить. const n=10; var a:array[1..n] of integer; i,j,max,minp:integer; begin write('Массив '); for i:=1 to n do begin a[i]:=random(100); write(a[i]:4); end; writeln; write('Максимальный элемент '); max:=0; imax:=0; for i:=1 to n do if (a[i]>max) then begin max:=a[i]; j:=i; end; writeln(max); minp:=0; for i:=j to n do if (a[i] minp:=a[i]; write('Наименьший элемент правее максимального ',minp); end.