Найти наименьший из элементов, расположенных правее максимального элемента массива.

Вместо наименьшего элемента выводит последний. Помогите исправить.

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.

Заменить строки в конце программы:   minp:=max;

for i:=j to n do  

if (a[i]<minp) then minp:=a[i];