uses crt;
var a:array[1..40] of integer;
i,min,n:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 40 do begin
a[i]:=random(99-1+1)+1;
write(a[i]:3);
end;
writeln;
min:=100;
for i:=1 to 40 do begin
if a[i]<min then begin min:=a[i]; n:=i; end;
end;
writeln('Минимальный элемент равен ',min,', его порядковый номер - ',n);
end.

Что значит сред вложение мне непонятно, поэтому не сделал вторую.