Перед максимальным элементом массива и после вставить число Z

uses crt;
var a:array[1..100] of integer;
    i,n,z:integer;
    max:integer;
begin
max:=0;
writeln('z chislo');
readln(z);
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]>=max then
max:=a[i];
for i:=1 to n+2 do
if a[i]=max then
a[i+1]:=z;
for i:=1 to n do begin
if a[i]=max then
a[i+1]:=z;
end;
for i:=1 to n+1 do
write(a[i]);
end.

uses crt;
var a:array[1..100] of integer;
    i,n,z:integer;
    max:integer;
begin
max:=0;
writeln('z chislo');
readln(z);
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]>max then
max:=i;
n:=n+1;
for i:=n+1 downto max+1 do
a[i]:=a[i-1];
a[max]:=z;
n:=n+1;
for i:=n+1 downto max+2 do
a[i]:=a[i-1];
a[max+2]:=z;
for i:=1 to n do write(a[i]);end.

program insert;
 
const m = 10;
 
var a:array[1..m + 2] of integer;
    i, n, z:integer;
    max, imax: integer;
 
begin
  randomize;
  write('z = ');
  readln(z);
  repeat
    write('n = ');
    readln(n);
    if (n > m) or (n < 1) then writeln('Error: n out of range 1..', m)
  until (n <= m) and (n >= 1);
  writeln('Source array:');
  for i:=1 to n do
    begin
      a[i] := random(198) - 99;
      write(a[i]:4)
    end;
  writeln;
  max := a[1];
  imax := 1;
  for i:=2 to n do
    if a[i] > max then
      begin
        max := a[i];
        imax:=i
      end;
  for i := n + 2 downto imax + 2 do a[i] := a[i - 2];
  a[imax + 2] := z;
  a[imax + 1] := max;
  a[imax] := z;
  for i := 1 to n + 2 do write(a[i]:4);
  readln
end.