Делал как-то уже похожее. Программа выводить мин. и макс. элемент, если не нужно то можешь удалить из кода 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.