Вставить произвольное число К перед максимальным и минимальным элементами массива

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,imn,imx,k,p1,p2:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax-4,' n=');{4 места для вставок}
readln(n);
until n in [1..nmax-4];
writeln('Исходный массив:');
imn:=1;
imx:=1;
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
  if a[i]<a[imn] then imn:=i
  else if a[i]>a[imx] then imx:=i
 end;
writeln;
writeln('Минимальный элемент=',a[imn],' его номер=',imn);
writeln('Максимальный элемент=',a[imx],' его номер=',imx);
write('Введите число для вставки k=');
readln(k);
if imx>imn then{узнаем какой дальше}
 begin
  p1:=imx;
  p2:=imn;
 end
else
 begin
  p1:=imn;
  p2:=imx;
 end;
n:=n+1;{вставим за последним}
for i:=n downto p1+1 do
a[i]:=a[i-1];
a[p1+1]:=k;
n:=n+1;
for i:=n downto p1 do
a[i]:=a[i-1];
a[p1]:=k;
n:=n+1;{вставим за первым}
for i:=n downto p2+1 do
a[i]:=a[i-1];
a[p2+1]:=k;
n:=n+1;
for i:=n downto p2 do
a[i]:=a[i-1];
a[p2]:=k;
writeln('Вставки элемента ',k);
for i:=1 to n do
write(a[i]:4);
readln
end.

uses crt;
var a:array[1..20] of integer;
    n,i,j,k,mx,imx:integer;
begin
clrscr;
repeat
write('Ðàçìåð ìàññèâà îò 2 äî 20 n=');
readln(n);
until n in [2..20];
writeln('Ââåäèòå ýëåìåíòû ìàññèâà â òîì ÷èñëå ïîñëåäîâàòåëüíîñòè îæèíàêîâûõ');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Ìàññèâ:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
i:=2;
mx:=0;
imx:=0;
while i<=n do
if a[i]=a[i-1] then
  begin
   j:=i;
   k:=1;
   while (a[j]=a[j-1])and(j<=n) do
    begin
     j:=j+1;
     k:=k+1;
    end;
   if k>mx then
    begin
     mx:=k;
     imx:=i-1;
    end;
   i:=i+k;
  end
else i:=i+1;
if mx=0 then write('Íåò îäèíàêîâûõ ðÿäîì!')
else
 begin
  writeln('Ìàêñèìàëüíàÿ ïîñëåäîâàòåëüíîñòü îäèíàêîâûõ ÷èñåë=',mx);
  for i:=imx to imx+mx-1 do
  write(a[i],' ')
 end;
readln
end.