Делал как-то уже похожее. Программа выводить мин. и макс. элемент, если не нужно то можешь удалить из кода i_max
uses crt;
const
  Nmax=10;
var
  m:array[1..Nmax] of integer;
  i,i_min,i_max:byte;
  min,max:integer;
begin
  ClrScr;
  randomize;
  writeln('Исходный массив:');
  for i:=1 to Nmax do begin
    m[i]:=random(-30,30);
    write(m[i],' ');
  end;
  max:=m[1];
  min:=m[1];
  i_min:=1;
  i_max:=1;
  for i:=1 to Nmax do begin
    if m[i]>max then begin
      max:=m[i];
      i_max:=i;
    end;
    if m[i]      min:=m[i];
      i_min:=i;
    end;
  end;
  writeln;
  writeln('Максимальный элемент: ',max,' Его номер: ',i_max);
  writeln('Минимальный элемент: ',min,' Его номер: ',i_min);
  readln;
end.