Pascal/Turbo Pascal - Ayuda con un Problema Propuesto de Vectores en Pascal por Favor

{A ver si esto te ayuda}

 program vectores;

 uses

    crt;

  const

     nvec = 20;

  type

     elvector = array[1..nvec] of integer;

  var

    posi, cont, i, t : integer;

    vector : elvector;

  procedure cargavalores;

  var

    valor, tomado : integer;

  begin

     randomize;

     tomado := 1;

     fillchar(vector,sizeof(elvector),0);

   repeat

        valor := random(40) + 1;

        vector[tomado] := valor;

        tomado := tomado + 1;

   until tomado > nvec;

  end;

  procedure muestravector;

  begin

     for t := 1 to nvec do

     write(' ',vector[t]);

  end;

  function elmayores(var posi : integer) : integer;

  var

    h, u, k : integer;

  begin

     k := 0;

     u := 0;

     for h := 1 to nvec do

     begin

         if k < vector[h] then

         begin

         k := vector[h];

         u := h;

         end;

     end;

      posi := u;

      elmayores := k;

  end;

  begin

      clrscr;

      cargavalores;

      muestravector;

      writeln;

      writeln('El Mayor Es : ',elmayores(posi));

      writeln('Posicion Es : ',posi);

      readkey;

  end.