Дан одномерный массив. Найти максимальный элемент и вставить за ним введенное с клавиатуры число — Pascal(Паскаль)

var
  a: array [1 .. 100] of integer;
  s, s1, i, max, n, nom: integer;

procedure vvod;
begin
  writeln('Vvedi n a posle massiv');
  read(n);
  for i := 1 to n do
    read(a[i]);
end;

procedure maximum;
begin
  for i := 1 to n do
    if max[i] then
    begin
      max := a[i];
      nom := i;
    end;
end;

procedure vstavka;
begin
  read(s);
  for i := n + 1 downto nom + 1 do
    a[i] := a[i - 1];
  a[nom + 1] := s;
end;

procedure vyvod;
begin
  for i := 1 to n + 1 do
    writeln(a[i]);
end;

begin
  vvod;
  maximum;
  vstavka;
  vyvod;

end.