Найти номера минимального элемента массива и элемента, являющегося минимальным без учета этого элемента

program tmp;
uses crt;
const count=100;
var mas:array[1..count] of integer;
i,n,max,max1,min,min1,imx,imx1,imn,imn1:integer;
begin
clrscr;
randomize;
readln(n);
for i:=1 to n do begin
                 mas[i]:=random(50);
                 write(mas[i],' ');
                 end;
 
max:=mas[1];
imx:=1;
for i:=1 to n do if mas[i]>max then begin
max:=mas[i];
imx:=i;
end;
max1:=mas[1];
imx1:=1;
for i:=1 to n do if (mas[i]<max) and (mas[i]>max1) then begin
max1:=mas[i];
imx1:=i;
end;
writeln;
write('max: ',max,' , imx: ',imx,' ; max1: ',max1,' ,imx1: ',imx1);
 
min:=mas[1];
imn:=1;
for i:=1 to n do if mas[i]<min then begin
min:=mas[i];
imn:=i;
end;
min1:=mas[1];
imn:=1;
for i:=1 to n do if (mas[i]>min) and (mas[i]<min1) then begin
min1:=mas[i];
imn1:=i;
end;
writeln;
write('min: ',min,' , imn: ',imn,' ; min1: ',min1,' ,imn1: ',imn1);
 
readkey;
end.