var b: array of real;
i,n,ll: integer;
max,min,a: real;
begin
write('Введите длину массива: ');
readln(n);
write('Введите число a: ');
readln(a);
setlength(b,n);
writeln('Массив B: ');
for i:=0 to n-1 do
begin
b[i]:=random(3*n);
write(b[i],' ');
end;
writeln;
min:=b[0];
max:=a;
for i:=0 to n-1 do
if min>b[i] then min:=b[i]
else if max
max:=b[i];
ll:=i;
end;
writeln('Наименьший элемент массива - ',min);
writeln('Элемент, больший числа ',a,' - ',max,' - находится в ',ll+1,' месте');
end.
Можете вместо real типа данных использовать также и integer. Просто неизвестно какие данные будут использоваться во время проверки