program Project2;

{$APPTYPE CONSOLE}

var
a:array[1..50] of integer;
i,n,T,nom,max,nmax:integer;
fl,fl2:boolean;
ft1,ft2:text;
st:string;
begin
st:='d:\1.txt';
Assignfile(ft1,st);
reset(ft1);
fl:=true;
fl2:=true;
read(ft1,T,n);
nom:=n;
for i:=1 to n do
read(ft1,a[i]);
for i:=1 to n do

if (a[i]>T) and (fl=true) then begin nom:=i; fl:=false; end;
for i:=nom to n do
 if a[i]>=0 then
  if fl2=true then begin
  max:=a[i];
  nmax:=i;
  fl2:=false;
  end
  else
  if max>=a[i] then begin
   max:=a[i];
   nmax:=i;
   end;
closefile(ft1);
st:='d:\2.txt';
assignfile(ft2,st);
append(ft2);
writeln(ft2,'T= ',T);
writeln(ft2,'Koli4estvo elementov= ',n);
writeln(ft2,'Massiv:');
for i:=1 to n do
write(ft2,a[i],' ');
writeln(ft2,' ');
if fl2=false then
writeln(ft2,'Otvet:',nmax)
else
writeln(ft2,'Niodin element ne popodaet v zadannui diapazon');
closefile(ft2);
readln;
end.