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

uses crt;
const nmax=50;
var a:array[1..2*nmax] of integer;
    n,mx,i,j,k:integer;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4);
  if i=1 then mx:=a[i]
  else if a[i]>mx then mx:=a[i];
 end;
writeln;
writeln('Максимальный элемент=',mx);
write('Введите челое число для вставки k=');
read(k);
i:=1;
while i<=n do
if a[i]=mx then
 begin
  n:=n+1;
  for j:=n downto i+2 do
  a[j]:=a[j-1];
  a[i+1]:=k;
  i:=i+2;
 end
else i:=i+1;
writeln('Массив после вставок:');
for i:=1 to n do
write(a[i]:4);
end.

uses crt;
const nmax=50;
type mas=array[1..2*nmax] of integer;
procedure vvod(var a:mas;var n:integer);
var i:integer;
begin
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4);
 end;
writeln;
end;
function max(a:mas;n:integer):integer;
var i,mx:integer;
begin
mx:=a[1];
for i:=1 to n do
if a[i]>mx then mx:=a[i];
max:=mx;
end;
procedure vstav(var a:mas;var n:integer;k:integer);
var i,j:integer;
begin
write('Введите челое число для вставки k=');
read(k);
i:=1;
while i<=n do
if a[i]=max(a,n) then
 begin
  n:=n+1;
  for j:=n downto i+2 do
  a[j]:=a[j-1];
  a[i+1]:=k;
  i:=i+2;
 end
else i:=i+1;
writeln('Массив после вставок:');
for i:=1 to n do
write(a[i]:4);
end;
var a:mas;
    n,k:integer;
begin
randomize;
vvod(a,n);
writeln('Максимальный элемент=',max(a,n));
vstav(a,n,k);
end.