Pascal/Turbo Pascal - programa mayor y menor

{Esto te valdrá}

 program losnumeros;

 uses

   crt;

 var

    n : integer;

    todosnum : array[1..40] of integer;

   procedure numeros;

   var

     may, i, tem : integer;

   begin

      clrscr;

      write('   Entre numeros a entrar maximo 40 : ');

      readln(n);

      for i := 1 to n do

      begin

         write('  Entre valor N. ',i,' : ');

         readln(todosnum[i]);

      end;

      tem := todosnum[1];

      may := todosnum[1];

      for i := 2 to n do

      begin

      if tem > todosnum[i] then

      tem := todosnum[i];

      if may < todosnum[i] then

      may := todosnum[i];

      end;

      writeln;

      writeln('  Es = ',may,'  Es el mayor Numero');

      writeln('  Es = ',tem,'  Es el menor Numero');

   end;

  begin

      numeros;

      readln;

  end.