Поменять местами второй минимальный и второй максимальный элементы

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,k1,k2,imn,imx:byte;
    mn,mx,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(6);
  write(a[i],' ');
 end;
writeln;
mx:=a[1];
mn:=a[1];
for i:=1 to n do
if a[i]>mx then mx:=a[i]
else if a[i]<mn then mn:=a[i];
writeln('макс=',mx,'  мин=',mn);
imn:=0;k1:=0;
imx:=0;k2:=0;
for i:=1 to n do
if a[i]=mn then
 begin
  k1:=k1+1;
  if k1=2 then imn:=i;
 end
else if a[i]=mx then
 begin
  k2:=k2+1;
  if k2=2 then imx:=i;
 end;
if(imx=0)or(imn=0)then
 begin
  if imx=0 then writeln('Нет двух максимальных');
  if imn=0 then writeln('Нет двух минимальных');
  writeln('Обмен невозможен!');
 end
else
 begin
  writeln('Индекс второго минимального элемента=',imn);
  writeln('Индекс второго максимального элемента=',imx);
  x:=a[imn];
  a[imn]:=a[imx];
  a[imx]:=x;
  writeln('Массив после обмена:');
  for i:=1 to n do
  write(a[i],' ');
 end;
readln
end.