Вставить в массив элемент, равный максимальному, справа от последнего отрицательного элемента

const n=25;
type mas=array[1..n+1] of integer;
var d:mas;
 procedure inp(var a:mas);
 var i:integer;
 begin
  for i:=1 to n do a[i]:=-50+random(101)
 end;
 procedure outp(a:mas;s:string;raz:integer);
 var i:integer;
 begin
  writeln(s);
  for i:=1 to raz do write(a[i],' ');writeln
 end; 
 function max(a:mas):integer;
 var m,i:integer;
 begin
  m:=a[1];
  for i:=2 to n do if a[i]>m then m:=a[i];
  max:=m
 end;
 function p_otr(a:mas):integer;
 var i,j:integer;f:boolean;
 begin
  j:=n;f:=false;
  while (not f)and(j>=1) do 
   begin 
    if a[j]<0 then begin f:=true;i:=j end;
    dec(j)
   end; 
  if f then p_otr:=i else p_otr:=-1
 end;
 procedure ins(var a:mas;el,mm:integer);
 var i:integer;
 begin
  for i:=n+1 downto mm do a[i]:=a[i-1];
  a[mm]:=el
 end;
begin
 randomize;
 inp(d);
 outp(d,'D:',n);
 if p_otr(d)<0 then writeln('нет отрицательных')
                else 
                 begin
                  ins(d,max(d),p_otr(d)+1);
                  outp(d,'D'':',n+1)
                 end;
 readln
end.