Vetor Função e Procedimento Materia Prova

program prova;

uses crt;

var vetor: array[1..10] of integer;
opcao: integer;
salvo: integer;


Procedure Menu ();
Begin
  writeln('Menu');
  writeln('1- Adicionar');
  writeln('2- Elemento');
  writeln('3- Media');
  writeln('4- Soma');
  writeln('5- Maior');
  writeln('6- Menor');
  writeln('7- Sair');
  Write('Sua opcao: ');
  readln(opcao);
end;


Procedure Adicionar();
var j : integer;
begin
for j :=1 to 10 do
begin
writeln('Digite um numero');
readln(vetor[j]);
end
end;

function elemento(salve : integer): integer;
var  j : integer;

begin
for j :=1 to 10 do
    elemento := vetor[salve]
end;

function media() : real;
var j : integer;
  soma : real;
  resultado : real;
begin
for j := 1 to 10 dobegin
soma := vetor[j] + soma;
end;
resultado := soma / 10;
media := resultado;
end;

function soma() : real;
var j:integer;
  somar : real;
  resultado : real;
begin
for j:= 1 to 10 do
somar:= (vetor[j]) + somar;
soma := somar;
end;

function maior() : integer;
var j : integer;
    maiores : integer;

begin
maiores := 0;
 for j := 1 to 10 do   begin
   if vetor[j] > maiores then
      maiores := vetor[j]
      else
        maiores := maiores;
   end;
end;

function menor() : integer;
var j : integer;
    menores : integer;
begin
 for j := 1 to 10 do   begin
      if vetor[j] < menores then
      menores := vetor[j]
      else
        menores := menores;
   end;
end;


begin
   repeat
   begin
     Menu;
     case opcao of
      1: adicionar;
      2:
        begin
          writeln('Digite um numero na faixa de 1 a 10');
          readln(salvo) ;
          writeln('o numero na opcao escolhida eh: ', elemento(salvo));
        end;
      3: writeln('A media do vetor eh: ', media:2:0);
      4: writeln('A soma do vetor eh: ', soma:2:0);
      5: writeln('O maior numero eh: ', maior);
      6: writeln('O menor numero eh: ', menor);
      7: writeln('sair');
      else
        writeln('digite uma opcao valida');
      end;
     end;
   until opcao = 7;

  readkey;
end.