Найти наименьший элемент массива, и его номер среди чисел,минимальное число должно быть больше за b и меньше за a.

const  nn=50;var  i,n,a,b,im,min:integer;  x:array[1..nn] of integer;begin  ClrScr;  Write('n= '); Read(n);  Write('b,a= '); Read(b,a);  im:=0;  for i:=1 to n do begin    Write('x[',i,']='); Read(x[i]);    if im=0 then im:=i    else begin if x[i]<x[im] then im:=i end  end;Writeln;  if (im=0) or (not (x[im] in [b..a])) then Writeln('No solution')  else Writeln('x[',im.']=',x[im],' is minimal');  ReadKeyend.Тестовое решение:n=5b,a= 4 8x[1]=9x[2]=7x[3]=9x[4]=6x[5]=8x[4]=6 is minimal