переделайте задачу, чтобы она работала через одну процедуру.

[Proskurina]

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

uses crt;
const nmax=100;
type mas=array [1..nmax+1] of integer;
var a: mas; n: byte;

procedure Gen(var r: byte; var z: mas);
var i: byte;
begin
repeat
write('Количество элементов, не более ',nmax,', n='); readln(r);
until r in [1..nmax];
for i:=1 to r do
z[i]:=random(199)-99;
end;

procedure Print(r: byte; z: mas);
var i: byte;
begin
for i:=1 to r do
write(z[i]:4);
writeln;
end;

function Imax(r: byte; z: mas): byte;
var i,im: byte;
begin
im:=1;
for i:=2 to r do
if z[i]>z[im] then im:=i;
writeln('Максимальный элемент=',z[im],' под номером ',im);
Imax:=im;
end;

procedure Insert(var r: byte; var z: mas);
var i: byte;
begin
for i:=r downto Imax(r,z) do
z[i+1]:=z[i];
z[i]:=0;
inc(r);
end;

begin
Gen(n,a);
writeln('Исходный массив');
Print(n,a);
writeln('Массив после вставки');
Insert(n,a);
Print(n,a);

end.

[Stilet]

Примерно так:

uses crt;
const nmax=100;
type mas=array [1..nmax+1] of integer;
var a: mas; n: byte;

procedure Gen;
var imax,i: byte;
begin
 repeat
  write('Количество элементов, не более ',nmax,', n='); readln(r);
 until r in [1..nmax];
 imax:=0;
 for i:=1 to r do begin
  z[i]:=random(199)-99;
  if z[i]>z[imax] then imax:=i;
 end;
 for i:=1 to r do write(z[i]:4);writeln;
 for i:=1 to imax do write(z[i]:4); write(0:4);
 for i:=imax to r do write(z[i]:4);writeln;
end;


begin
 Gen(n,a);
 readln;
end.

Не проверял.

[Proskurina]

не работает( а что за процедура gen???

[Poma][a]

procedure Gen;

Gen(n,a);

Просто в процедурке параметры не передаёте.
А т.к. у Вас глобальные переменные, то пишите просто

Gen;

[Proskurina]

можно код???