Нахождение наибольшего среди элементов массива в определённом интервале

program mas;
var  
    a: array[1..100] of integer;  
    i,n,k,n_ : byte;  
    c,d,max: integer;
 
  begin  
    write('Введите интервал: ');
    readln(c);
    readln(d);
    write('Размер массива: ');
    readln(n);
    writeln('Введите массив: ');  
    for i:=1 to n do  
     readln(a[i]);  
 
    max := a[1];  
     n_:= 1;  
    for i:=1 to n do  
      if (max < a[i]) and  
         (a[i] >= c) and  
         (a[i] <= d)  
         then  
            begin  
              max := a[i];  
               n_ := i;  
            end;  
    writeln;  
    writeln('Максимальный элемент: a[',n,']=',max);  
  end.

max:=-MaxInt-1; n_:=0;
...
if n_=0 then WriteLn('Нет чисел в интервале [',c,';',d,']')
else WriteLn('Максимальный элемент: a[',n_,']=',max);

n_:=0;
for i:=1 to n do
  if (a[i]>=c) and (a[i]<=d) and ((max<a[i]) or (n_=0)) then begin
    max:=a[i]; n_:=i;
  end;
if n_=0 then WriteLn('Нет чисел в интервале [',c,';',d,']')
else WriteLn('Максимальный элемент: a[',n_,']=',max);

program mas;
uses crt;
var a: array[1..100] of integer;
    i,n,k,imax : byte;
    c,d: integer;
begin
repeat
write('Размер массива от 1 до 100 n=');
readln(n);
until n in [1..100];
writeln('Введите элементы массива: ');
for i:=1 to n do
readln(a[i]);
clrscr;
writeln('Массив');
for i:=1 to n do
write(a[i],' ');
writeln;
repeat
write('Введите интервал: ');
readln(c,d);
until d>c;
imax := 0;
for i:=1 to n do
if (a[i]>=c) and (a[i]<=d) then imax:=i;
if imax=0 then write('В масиве нет элементов из диапазона ',c,'...',d)
else
 begin
  for i:=1 to n do
  if (a[i]>=c) and (a[i]<=d)and(a[i]>a[imax]) then imax:=i;
  writeln('Максимальный элемент: a[',imax,']=',a[imax]);
 end
end.