Задача на Turbo Pascal

[W_P]

НаРод помоГите решить задачу!! Дан одномерный массив . Найти максимальный элемент и вставить за ним введенное с клавиатуры число.Использовать функции, процедуры.
Вот я написал ток не до конца. Исправьте че если непрально в этом и дополните. Заранее спасибо! Впринципе возникла трудность во вставке элемента...

Program a1;
uses crt;
type
mas=array[1..100] of integer;
var
a:mas;i,max,f,n,s:integer;
procedure vvod(a:mas;i,n:integer);
begin
writeln('Vvedite kolichestvo elementov massiva==>');
readln(n);
for i:=1 to n do
begin
writeln('Vvedite ',i,' element massiva==>');
readln(a[i]);
end;
end;
procedure vivod(a:mas;i:integer);
begin
for i:=1 to n do
begin
writeln(a[i]);
end;
end;
procedure maximum(a:mas;i,max:integer);
begin
max:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
end;
writeln(Maximum ==>,max);
end;
procedure vstavka(a:mas;i,s:integer);
begin

[WOLFak]

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<a[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.