Условие: С помощью процедур создать меню с действиями над массивом(создать, поиск мин и макс, сортировка и тд.), посмотрите разберетесь

 var i,n:integer;
procedure vvod(var a:array[1..100] of integer);
begin
randomize;
for i:=1 to n do
readln(a[i]);
end;
procedure rand(var a:array[1..100] of integer);
begin
randomize;
for i:=1 to n do
a[i]:=random(10)-5;
end;
procedure vivod(a:array[1..100] of integer);
begin
for i:=1 to n do
write(a[i]:3);
end;
procedure minmax( var a:array[1..100] of integer);
var
min,max,nmin,nmax:integer ;
begin
max:=a[1];
min:=a[1];
nmin:=1;
nmax:=1;
for i:=1 to n do
begin
if a[i]>=max then
begin
max:=a[i];
nmax:=i ;
end;
if a[i]<=min then
begin
min:=a[i];
nmin:=i;
end;
end;
writeln('минимум=',min,' номер минимума=',nmin);
writeln('максимум=',max,' номер максимума=',nmax);
end;
procedure sort( var a:array[1..100] of integer);
var i,j,k:integer;
begin
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;

end;
procedure summa( var a:array[1..100] of integer);
var s,i:integer;
begin
s:=0;
for i:=2 to n do begin s:=s+a[i] ; i:=i+1 ; end;
writeln('сумма= ',s);
end;

procedure men( var a:array[1..100] of integer);
var i,j,k,ot,pol:integer;
begin
ot:=0;
pol:=0;
for i:= n downto 1 do
if a[i]< ot then ot:=i;
for i:= 1 to n do
if a[i]> pol then pol:=i;
k:=a[pol];
a[pol]:=a[ot];
a[ot]:=k;

end;

procedure umnogh( var a:array[1..100] of integer);
var x,p,i:integer;
begin
writeln('введите элемент' );
readln(x);
p:=1;
for i:=1 to n do begin if a[i]>x then p:=p*a[i] ;end;
writeln('произведение = ',p);
end;
 procedure udal( var a:array[1..100] of integer);
 var i,k:integer;
 begin
 writeln('введи k элемент для удаления');
 readln(k);
 for i:=k to n-1 do
 a[i]:=a[i+1];
  a[n]:=0;
 end;
 
 
var a:array[1..100] of integer;
var x,q,min,max,nmin,nmax:integer;
begin

writeln('введи размерность массива');
readln(n);
repeat
begin
writeln;
writeln('меню');
writeln('1. сформировать массив случайным образом');
writeln('11. ввести массив вручную');
writeln('2. минимум и максимум и его номер');
writeln('3. сортировка');
writeln('4. сумма четных');
writeln('5. умножение заданной p');
writeln('6. поменять 1-й отрицательный и последний положительный');
writeln('7. поиск элемента к и его удаление');
writeln('8. вывод массива');
writeln('0. выход');
readln(q);
case q of
1:rand(a);
11:vvod(a);
2:minmax(a);
3:sort(a);
4:summa(a);
5:umnogh(a);
6:men(a);
7:udal(a);
8:vivod(a);
0:exit;
end;
end
until q=0;

end.