Paskal вставка элементов в массив

[TuuuZ]

нужно вставить элемент в массив после 1-ого max числа.
q - номер max
1) первые q - элементы массива остаются без изменений
2) все элементы после q+1 нужно сдвинуть на одну позицию в право
3) на место q+1 записать const =100

[TuuuZ]

program dfds;
const
b=100;
type mas=array[1..20] of integer;
var a:mas; k,i,n:integer;

function maxim(x:integer;a:mas):integer;
var k,max,imax,q:integer;
begin
max:=a[1];
imax:=1;
for i:=2 to n do begin
if a[i]>max then max:=a[i];
imax:=i;
end;
q:=imax;
end;

procedure sdvig(n,q:integer; var a:mas);
var i:integer;
begin
for i:=q+1 to n do begin
a[i]:=a[i+1];
procedure inst(x:integer; a:mas);
var a:mas; i:integer;
begin
for i:=1 to x do
a[i+1]:=b;
end;

procedure print(x:integer; a:mas);
var i:integer;
begin
for i:=1 to x do
write(a[i],' ' );
writeln;
end;
begin
writeln('BBegu n');
readln(n);
k:=maxim(x,a);
sdvig(n,q,a);
inst(x,a);
print(i+1,a);
end.

проверьте плиз так ли

[Serebro]

Программа неверна. Функции совершенно неправильно определены.

[TuuuZ]

Serebro
и как ее написать, помоги

[Serebro]

Кажется, что так (давно не пишу на PASCAL)

program dfds;
const
n=20
b=100;
type mas=array[1..n+1] of integer;
var a:mas; k,i:integer;

function maxim(a:mas):integer;
var i,max,imax:integer;
begin
max:=a[1];
imax:=1;
for i:=2 to n do
begin
  if a[i]>max then
  begin
    max:=a[i];
    imax:=i;
  end;
end;
maxim:=imax;
end;

procedure sdvig(n,q:integer; var a:mas);
var i:integer;
begin
for i:=n downto q do 
a[i+1]:=a[i];
end;

procedure inst(x:integer; a:mas);
var a:mas;
begin
a[x]:=b;
end;

procedure print(a:mas);
var i:integer;
begin
for i:=1 to n+1 do
write(a[i],' ' );
writeln;
end;

begin
writeln('BBegu n');
readln(n);

Здесь нужно ввести массив a(i)


k:=maxim(a);
sdvig(n,k,a);
inst(k,a);
print(a);
end.

[TuuuZ]

благодарю)