const n=10;

var a:array [1..n] of integer;

i,max,min,imax,imin:integer;

begin

min:=33;

max:=4;

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(30)+4;

if a[i] > max then

begin

max:=a[i];

imax:=i

end;

if a[i] < min then  

begin

min:=a[i];

imin:=i

end;

write(a[i]:3,' ')

end;

writeln;

writeln('Максимальный элемент ',max,' и его индекс ',imax);

writeln('Минимальный элемент ',min,' и его индекс ',imin);

end.

Или так (учитываются равные элементы):

const n=10;

var a:array [1..n] of integer;

i,max,min:integer;

begin

min:=33;

max:=4;

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(30)+4;

if a[i] > max then max:=a[i];

if a[i] < min then min:=a[i];

write(a[i],' ')

end;

writeln;

for i:=1 to n do

begin

if a[i] = max then writeln('Максимальный элемент ',max,' и его индекс ',i);

if a[i] = min then writeln('Минимальный элемент ',min,' и его индекс ',i)

end

end.

//PascalABC  (версия 3.4.2, сборка 1889 от 04.12.2018)

uses Arrays;

begin

var S := CreateRandomIntegerArray(10,4,33);

writeln('Массив: ', S);

writeln('Индексы массива начинаются с 0!');

writeln('Минимальный элемент: ', S.Min, '. Индекс: ', S.IndexOf(S.Min));

writeln('Максимальный элемент: ', S.Max, '. Индекс: ',  S.IndexOf(S.Max));

end.