Найти максимальный (минимальный) элемента массива, а также его порядковый номер.

program prim3;
  uses crt;
  var i,n,r,max,min,imax,imin:integer;
      a:array[1..10000] of integer;
begin
  clrscr;
  randomize;
  write('число элементов n= ');
  readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(45)-22;
{Получаем случайные числа и выводим их на экран.}
      write(a[i],' ');
    end;
{За начальный максимум (минимум) берем первый элемент массива.}
  min:=a[1]; max:=a[1];
  for i:=1 to n do
    begin
{Если найдется элемент, меньший MIN, то MIN будет равен этому элементу. Одновременно запоминаем индекс промежуточного минимума.}
      if a[i]<=min then
        begin
          min:=a[i]; imin:=i;
        end;
{Если найдется элемент, больший МАХ, то МАХ будет равен этому элементу. Одновременно запоминаем индекс промежуточного максимума.}
      if a[i]>= max then
        begin
          max:=a[i]; imax:=i;
        end;
    end;
{Печатаем минимальный элемент и его индекс.}
  writeln(min,' номер' , imin);
{Печатаем максимальный элемент и его индекс.}
  writeln(max, ' номер' ,imax);
  readkey;
end.